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■ 

This thesis presents the adaptation of a multi-computer 
real-time executive, MCCETEX, to a target environnent 
consisting of a set of INTEL 86/12A sins:le hoard computers 
in a 'MULTIBUS hack plane. CP/M-86 is hrou,^ht under the 
control of MCCRTEX, and mechanisms are implemented to 
provide access to the I^CORTEX supervisor from Digital 
Research's PL/I-86 language system. 

Initially CP/M-86 is operating the system of micro- 
computers in a multi-user mode. MCCRTEX and user processes 
are loaded from CP/M-86 files. Use of all CP/M-86 functions 
is retained and MCCRTEX can be used hy PL/I -86 compiled 
applications programs to do mul t i-pr ocess ing . 
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I . INTROpyCTI CN 
A. GEN5Hn DISCUSSION 

This thesis presents the adantation of a kernel, 
real-time micro-computer based multi-processor operating 
system, called MCORTEX, to allow simultaneous user access to 
the CP/M operating system as well as to MCCRTEX . User 
program development using Digital Research's PL/I-&6 
language system is supported. 

Improvement in micro-processor capabilities, and 
performance, combined with continued reductions in hardware 
cost portend the development of powerful, relatively 
inexpensive micro-processor systems. Continued success in 
VLSI technology applications in parallel with development of 
appropriate operating systems will produce systems superior 
in many respects to computers developed using current 
mainframe technology. Systems of processors .allow for 
graceful degradation under fault conditions and for 
distribution of the system, enhancing survivability in 
hostile enviroFiments . Further, parallel processing allows 
increased throughput and response time, and in real time 
application can guarantee successful monitoring at high 
sample rates and densities, without conflict. 

A , successful- multi-processor system must control 
sequencing of inter-independent processes and access to 
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liTiitel resources. For efficiency it must provide the 
context switching necessary for mul ti -processing on 
individual processors. Addi t ionally , conflicts arising from 
simultaneous multi-processor access to common memory must he 
minimized without degrading throughput. This should he 
accomplished at a reasonable cost and in a manner that 
allows as many processors as are necessary to achieve the 
desired degree of concurrence and rooustness . 

The purpose of this thesis is to advance the development 
of a real time multi-processor system within the overall 
goals of the AEGIS weapons system simulation project. These 
goals include the demonstration of the operating system on 
commercially available, inexpensive, general purpose micro- 
computers. The system should reauire minimum development of 
both hardware and software. To the maximum extent possible, 
custom developments should be completely general in nature. 
In pursuit of these goals, MCORTEX is configured to execute 
in conjunction with a commercially a.vailable operating 
system, making the functions of both systems available to 
user programs. Additionally, mechanisms allowing user 
program development within the framework of a commercially 
available language system are provided. 

B. BACKGPOUNI) 

The AEGIS weapons system relies on the four-processor 
AN/UYK-7 mainframe computer for real-time processing of 
large amounts of data concerning target detection and 
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acquisition. A project at the Naval Postgraduate School 
seeks to demonstrate that a system as complex as AEGIS can 
he controlled more economically, with improvements in 
graceful degradation characteristics, and without 
performance loss using a distributed system of micro- 
computers. The project requires identification and 
implementation of an applicable hardware configuration, 
development of a suitable operating system, duplication of 
significant real-time functions of the AEGIS weapons system 
and incorporation of valid simulation processes for test and 
evaluation of the total system. 

The INTEL iSBC 66/12A, a single board micro-computer 
based on the 16 bit INTEL 8286 micro-processor, was selected 
as the system hardware base. Initial design of an operating 
system specific to the INTEL iSPC B6/12A was completed in 
1982 and implementation was accomplished in three Naval 
Postgraduate School thesis in 1961 and 1982. The second 
thesis in this series written by Cox [Pef. 1] simplified the 
design of i'^CORTEX to more successfully address security and 
overhead issues in the real-time embedded applications 
targetted by the project. Cox also added a supervisory 
layer to the architecture, simplifying access and enhancing 
security. Klinefelter [Ref. 2] expanded and generalized 
Cox's work. All implementation to this point was done on 
the ISIS-II development system, with multi-processor test 
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and execulior accomplished via download through a serial 
link to the target hardware. 

The ^oals of this thesis are to: 

1. Erin^ the powerful, highly portable functions 
of the CP/(^-66 operating system under the control of 
[^CORTEX. This will provide rapid expansion of user 
capabilities within the restrictions imposed by the non- 
reentrancy of CP/'^-56 utilities. Using MCORTEX functions, 
control of access to CP/M-36 can be selectively applied 
depending on the contextual requirements of the application. 

■ 2. Sever the link with the development system, and 
provide a simple, convenient method of creating the MCOPTEX 
environment. This should include user program and MCORTEX 
loading, transfer of control to MCORTEX, and mechanisms for 
return of control to CP/M- £6. 

3. Provide access mechanisms to the MCORTEX 
supervisor compatible with Digital Research's PL/I-86 
language system, allowing user programs to be developed in a 
high l“vel , portable language. 

C. STRUCTURE OF THE THESIS 

Chapter I discusses the overall direction of the AEGIS 
weapons system simulation project and the place this thesis 
holds in accomplishing project goals. 

Chapter II addresses the issues which resulted in 
changes to MCORTEX as implemen'ted by Klinefelter, and 
presents an overview of the MCORTEX functions 
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re ta i ned . Chapter III details the architecture of the MCORTEX 
environment, hi^hlifrht in^ interactions between the hardware, 
CP/M-ee and ^'CORTEX. 

Chapter IV presents the f^CORTEX loader, discussing' 
considerations ^'iven to alternative methods for invoking 
VCORTEX . 

Chapter V explains the interface provided between PL/I- 
66 and the MCORTEX supervisor. Procedures necessary to 
successfully create MCORTEX virtual processors are 
discussed . 

Chapter VI summarize the current state of the system, 
points out problem areas, and makes suggestions for future 
research and testing. 
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II. im?limentation modification issues 

DESIGN CONSIDERATIONS 

In a real-time system, mul t i-pr ocess i ns on a sinsle 
processor decreases crocessor idle time. A multi-processor 
conf isuration extends the ranse of this economy and provides 
opportunities to exploit parallel and pipeline processing 
technioues that further enhance overall system goals. 
Careful consideration must be given to control cf shared 
resources, process integrity, interprocess synchronization, 
methods of context switch initiation, and context switching 
overhead . 

3. SHARED RESOURCES 

The most important shared resource in a multi-processor 
environment is common memory. MC0RTE7 relies on a 
hierarchical bus structure to limit the requirement for 
access to common memory. Each processor has local memory, 
addressable without access to a shared bus. A process 
executing in local memory makes demands on the common bus 
only to pass computed data to external processes, or when 
MCORTEX functions are used. Related processes with high 
intercommunication rates should reside in the local memory 
of a single processor, thus avoiding high common bus usage. 

To perform its functions, MCORTEX sets up a section of 
common memory called GLOBAL memory. Table 1 shows the 
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logical organization of this shared resource (see the last 
four pas:es of Appendix H for actual locations.). Access to 



TABLE 1: GLOBAL MEMORY 



OFFSET MNEMONIC TYPE/INIT REMARKS 



0 


GLOBAL$LOCK 


B 


0 


1 


NE$R?S 


B 


0 


2 


NR$VPS (MAX$C?U) 


u 

A,' 


0 


12 


HDW$INTAELAG(MAXiCPU) 








B 


X 


22 


EVENTS 


B 


1 




EVC$TBL(100) 


S 




23 


EVC^NAME 


B 


FE 


24 


VALUE 


W 


0 


26 


THREAD 




EE 



Number of real processors 
Number of virtual processors 
'one byte for eac'" possible 
CPU, MAX^CPU currently = 10) 

Hardware interrupt flag (one 
for each possible CPU, MAX$CPU 
currently = 10) 

Number of events 
Event count table 
Event count name 
Event count value 
Event count thread 



420 CPU^INIT B 0 

424 SEQUENCERS B 0 

SEQiTABLE(100 ) S 

425 SEO^NAME B X 

426 SE0$VALUE W X 

VPM(MAX$CPU * MAX?VPMS$C?U) 



Log, in CPU number 
Number of sequencers 
Sequencer table 
Name of sequencer 
Value of seouencer 



725 VP$ID 

726 VP$STATE 

727 VP$?FIORITY 

728 EVC$AW$VALUE 
730 SP$EEG 

732 S3SREG 



S Virtual processor map 

(MAX$CPU currently = 10, 
MAX$VPMS^CPU currently = 10) 
B X Virtual processor ident. 

B X Virtual processor state 

B X Virtual processor priority 

W X Count awaited 

W X Stack pointer register 

W X Stack segment register 
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B - byte V - word S 



structure X - not initialized 



GLOBAL memory is controlled through the combination of a 
hardware bus lock, and a software lock ( GLOBAL$LOCK ) located 
in GLOBAL memory. Vhen a process sets the hardware bus 
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loc\r., it is .given sole access to the common tus for one 
instruction cycle. During this cycle, the process makes an 
exchange of the value in a register (contents 77H) with 
CtLCB A L- LOCK . The processor then examines the contents of 
the exchange register. If the register now contains zero, 
the processor is granted access, if not, the process repeats 
the procedure until a zero is obtained from GLOBALSLOCK. 
Because access to GLOBAL memory is cont rolled by MCORTEX, 
waits should be infreouent and short in duration. When 
relinquishing the software lock, the process merely sets 
GLOBALSLOCK to zero. 

Users have no access to GLOBAL memory, however MCOiiTEX 
provides for user control of shared resources through data 
held in GLOBAL memory. Sequencers, located in the sequencer 
table section of GLOBAL memory, are used to provide a turn 
taking mechanism. Each shared resource is assigned a 
corresponding sequencer. When processes require a resource, 
they request a turn through the supervisory function call 
TICKET, specifying the applicable sequencer. TICKET returns 
a number indicating the callers turn at the required 
resource. This is similar to getting a turn number at a 
barber shop. TICKET advances the sequencer value in global 
memory so that succeeding requests receive higher numbers. 
The process requesting the resource then makes another 
supervisory call, this time on AWAIT, providing both an 
identifi cation of the resource and the process turn number. 
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If the resorrce is not busy, the process will receive 
i-T.mediate access, otherwise the process ^ives up the CPU. 

C. PFOCESS TNTPGFITY 

The design of MCORTEX relies heavily on user cooperation 
for process intei^rity. The supervisor controls access to 
the MCORTFX functions, hut even this is a software control 
and will not withstand malicious assult or catastrophic 
failure. ^CORTEX is targetted at embedded systems 

applications where malicious assault is not expected. 
Protection from catastrophic failure requires hardware 

protection not presently in the system. The low cost of 
micro-computers however, allows for redundant tack up 

systems which can limit the affects of catastrophic failure. 

D. INTERPROCESS SYNCRRONI ZATION 

Process synchronization is accomplished under MCORTEX 
through the functions ADVANCE, AWAIT, and PREEMPT. These 
synchronizing primitives are supported with the functions 
CREATE$EVC, CREATE$SEO, READ, and TICKET. Consumer 

processes use AWAIT to ensure that data they require is 
ready. Producer processes use ADVANCE to inform consumers 
that new data has been computed. PREEMPT is used by one 
process to directly ready another process. This primitive 
is for activation of high priority system processes of a 
time critical nature. A call on a synchronizing primitive 
may, or may not result in relinquishing the CPU. The CPU is 
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always assigned to the highest priority ready virtual 
processor on each board regardless of which synchronization 
function envoked the scheduler. Before using ADVANCE or 
AWAIT, an event count must be created using CREATE $EV C . 
Consumers and producers then communicate using the agreed 
upon event count. The current value of an event count can 
be determined through a call on READ. The functions of 
C?EATE$SE0 and TICKET are as discussed earlier, but with 
broader applications. 

f'lCORTEX handles two types of context switching. The 
first type results when control of a CPU is relinquished 
through a MCORTEX function call. Under these conditions the 
calling process is not halted in the midst of some task, but 
at a place 'convenient* for the process. Some subset of the 
processors registers contains all required state 
information. MCORTEX assumes this subset includes the DS , 
IP, CS , SS, SP, and B? registers. Additionally, a "normal” 
return indicator is saved. The second type of context 
switching results from an interrupt. This switching assumes 
nothing, and saves the complete state of the process being 
interrupted as well as an 'interrupt' return indicator. 
This recognition of two switch types makes context switching 
faster for the more common 'normal" return. 

Early implementers of MCCRTEX considered the context 
switching overhead question in detail. Their solution gave 
greater importance to the issue of speed than to the issue 
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cf portability. The context switching routines in MCOETEX, 
including the virtual processor scheduler and tne interrupt 
handler, are the only portions of the f^'CCRTEX core written 
in assembly language. Another decision motivated by the 
speed imperative assumed that each virtual processor owned a 
stack for storing state information. This decision was 
followed by another assuming that the stack segment pointer 
for each stack was different. This allowed a bootstrap like 
context recovery. A search through the virtual processor map 
identified the highest priority ready process. Virtual 
orossor map information included the process stack segment 
value. This value was retrieved, and subsequently used to 
retrieve three additional pieces of processor state 
information. Offsets zero, two, and four from the stack 
segment were used to retrieve the process stack pointer 
value, the process stack base pointer value, and a return 
type indicator. Recovery of the stack state allowed 
recovery of the entire state of the virtual processor, and 
processing could continue. 

This context switching method has many advantages. 
”irst, once the stack segment of a process has been stored 
in a known, retrievable location, it never needs updating. 
The base of the stack remains fixed, and access is 
controlled through the contents of the first few bytes at 
the base of the stack. Second, less space is required to 
store the stack segment than to store the entire stack 



pointer. (This inforniation is stored in GLOBAL memory.) 
Third, since each process was uniquely identified hy its 
stack segment register, MCOP.TFX functions did not need to 
identify the process they v/ere responding to when using the 
scheduler. The scheduler simply stored state information at 
the base of whatever stack segment was active when the 
scheduler was called. 

The assumption that each process used a different stack 
segment value is not completely general, and in fact was not 
true for procedures compiled and linked under the Digital 
Research PL/I-36 language system. This conflict forced 
changes in the context switching mechanisms of t'^CORTEX. The 
entire stack pointer (3S and SP registers) is now stored in 
GLOBAL memory, and MCCHTEX functions making use of the 
scheduler must indicate (in the Processor Lata Segment 
Table, PELS) which virtual processor they are servicing. 

S. DELETED FUNCTIONS 

Functions previously available under MCOPuTEX include 
0UT$CKAE, 0UT$LINS, 0UT$NUM, OUT^DNUM, INSCHAR, IN^NUM, and 
IN$DNUM. With CP/M-86 under the control of MCOETEX, these 
utility functions are redundant and have been removed. 
However a version of MCOETEX with these functions 
incorporated has been retained for troubleshooting purposes. 
The monitor process incorporated by Klinefelter has also 
been removed in light of the availability of DDT36. 
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Ill, SYSTEM ARCHITECTURE 
A. SYSTEM HARDWARE 

This implementation of MCORTEX is based on the INTEL 
iSECB6/12A single board computer using a MULTIBUS beck 
plane. Specific, detailed irformation pertaining to both 



these components 


is available 


in [Ref. 


31 and [Ref. 4]. 


The 


MULTIBUS 


also 


connects two 


memory 


extensions into 


the 


system , 


A 32K 


ex ten si on 


is used as 


common memory 


for 



interprocess communication under MCORTEX and for CF/M multi- 
user system control. A 64K extension provides additional 
memory required to operate the PL/I-86 compiler and other 
utilities not constrained to execute in the 64K of memory 
local to each processor. Additionally, a bubble memory 
system dnd a hard disk system are available on MULTIBUS. A 
second hard disk system is accessed through the parallel 
port of one SBC. Figure 1 is a representation of this 
configuration with two SBC's shown. 

The iSBC86/12A provides a three level hierarchical bus 
structure. At the first level, the 8096 processor 
communicates through the on board bus with up to 4K of ROM, 
with serial and parallel I/O ports and with the dual-port 
bus. Control and access to local RAM is provided by the 
second level dual-port bus. The third bus level, the' 
MULTIBUS interface, provides access to the MULTIBUS. The 
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Dresently used wiring option excludes off “board access to 
local RAM. Differences between memory access times at the 
first two levels are negligible, but memory accesses 
involving MULTIBUS require a minimum 25% increase in access 
time. 

The high performance, general purpose S086 micro- 
processor base of the iSBC86/12A contains an Execution Unit 
(EU) and a Bus Interface Unit (BIU). EU functions are 
supported by instruction fetches and operand reads and 
writes conducted by the BIU. The BIU can stack instructions 
in an internal RAM to a level of six deep increasing EU 
efficiency and decreasing bus idle time. 

The S086 has eight 16 bit general purpose registers. 



four being 


byte addressable. 


The 


remaining 


four 


primarily 


pointer registers. 


but 


can be 


used 



accumulators. Additionally, the 8086 has four segment 
registers, an instruction pointer register and a flag 
register with nine status bits. 

A segmented one mega-byte address space is provided for 
by the 8086 micro-processor. This is accomplished by 
combining the 16 bits cf each segment register left shifted 
four bits, with the 16 bits of an associated pointer 
register unshifted. The resulting 20 bits form a physical 
address. Eor any given segment register value 64k bytes of 
memory can be addressed through manipulation of the pointer 
register alone. The 64k byte memory spaces formed can be 
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discrete or can overlap on boundaries that are multiples of 
16 bytes, lependins: on segment register values. 



The iSBC36/12A provides serial I/O through an INTEL 
&251A US ART, parallel I/O through an INTEL 8255A PPI and a 
broad range of interrupt control through the INTEL 8259A 
PIC. MCORTEX operates using interrupt 4. The interrupt is 
generated via output to parallel port E, as proposed by 
■Perry [Ref. 5: pp. 65 to 69]. Both the hardware and 
software implementations are exactly as presented by Perry. 

E. OPERATING SYSTEMS 



A copy 


of MCOPTEX resides in each processors local 


memory and 


is a distributed oart of the address space of 


each local 


process. Additionally, GLOBAL memory is 


accessible 


to MCORTEX to facilitate interprocess 



synchronization. A system interrupt under MCORTEX control, 
in conjunction, with interrupt flags maintained in GLOBAL 
memory, provides- communication initiation between real 



processors . 


Upon receiving an interrupt, each processor 


checks its 


flag in GLOBAL memory to determine if the 


interrupt is 


intended for a process in its local memory. If 



not, the process executing at the time of the interrupt 
continues. Otherwise a call is made to the MCORTEX 
scheduler and the highest priority ready process is given 
control of the CPU. For communi cation between processes in 
a common local memory, no interrupt is issued, a call to 
the scheduler is made directly. 
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Access to MCORTEX is through the supervisor at the 
outermost layer of the MCORTEX four level structure 
discussed by Klinefelter [Hef . 2 : pp. 44-46]. Due to 
incompatible parameter passing implementations in PL/M-86, 
and in PL/I-86, code allowing PL/I-86 access to the MCORTEX 
supervisor has been developed. This is discussed fully in 
Chapter V. 

Also resident in each local memory, if required, is the 
CP/M-S6 operating system. In this configuration the full 
range of CP/M utilities, [Ref. 6] and [Ref. 7], is available 
to the user. Additionally, development of user processes can 
make use of any of the broad scope of commercially available 
products compatible with CP/M-S6. Eigure 2 gives a 
representation of the locations of the system code. The 
diagram includes the location of DDT-86 as required for a 
debugging session. Also depicted are the locations of the 
MCORTEX / MXTFACE loaders. During load, loader memory is 
not reserved, and care must be taken to ensure that a CMD 
module's code or data section does not overwrite it. It is 
permissible, however, to include this memory as part of a 
module stack or free space, since these structures are 
developed at module runtime when loader functions have been 
compl eted . 

C. USE? PROCESSES 

User processes may be located in areas indicated in 
Figure 2. Additionally, if CP/M-86 utilities are not 
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processes . 

Descriptions of processes in memory are provided to 
MCCP.TSX through CREATE$PROC. This MCORTEX function gives 
the process a unioue identification number, priority, stack 
(SS and S? registers), next execution address .'CS and IP 
registers), data segment (D3 register), and extra segment 
(PS register). MCORTEX establishes the process initial 
context using this information to create a virtual 
processor. The virtual processor exists as a combination of 
data, both in GLOBAL memory, and in each process stack. When 
executing, the virtual processor becomes identical with the 
real nrocessor state. Relinouishing the CPU forces the 
virtual processor again into GLOBAL memory and the process 
stack . 

Special effort has been made to accommodate processes 
created under PL/I-66 and linked using LINK86. The internal 
architecture of such processes reouires some consideration. 
LINKBO concatenates all PL/I-86 code segments into one 
segment. The same is done with data segments. Thus, PL/I- 
86 processes consist of a series of contiguous code segments 
followed by a series of contiguous data segments. 
Additionally, at run time PL/I-86 routines create a stack 
following the data area, and a free space following the 
stack. The resulting process configuration is shown in 
Figure 3. 
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Access to all data areas resulting from a single link, 
is referenced to a common data se^sment. Stack pointers are 
referenced to the stack segment register, and free space 
pointers to the extra segn^ent register. Additionally, some 
PL/I-B6 runtime routines assume the contents of all three 
segment registers (DS, SS , SS ) are identical. This 
assumption disallows process stacks with unique stack 
segments, and was the motivation for modifications to 
MCCRTEX discussed in Chapter II. For the demonstration 
programs Dl.Ch.E and D2.CMD (appendix E) PL/I-86 generated a 
default stack of size 400H bytes. This area was subdivided 
to provide a 120H byte process stack and a 2E0E system stack 
in the case of Dl.CMD, and two 120H byte process stacks and 
a 1C0H byte system stack in the case of D2.ChD. The 
documentation for PL/I-86 [Ref. 8 : p. 2.9l describes 
mechanisms incorporated in the PROCEDURE statement to 
specify the size of the runtime stack. If these mechanisms 
function as described, all process stacks can be contained 
within the area allocated to the runtime stack. Otherwise 
process stacks can be constructed following the free space. 
This area would be unprotected by normal CP/M CMD file 
memory management functions, and its use would require extra 
care . 

The MCORTEX CREATE$PROC parameters include the absolute 
location of process start, stack, and data. For this reason 
it is advantageous to locate processes absolutely when 
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linlcins. LIN'KSo provides such an option [Ref. 9 : p. 7.6], 
however, the ABSOLUTE option is applicable to the entire CML 
file created and cannot be used to distribute the file non- 
co nti fTUously in memory. Also, experience has shown that the 
reouired code segment address ^rust be placed in the data's 
ABSOLUTS declaration. Further, the code segment ABSOLUTE 
declaration must hold an address larger than the sum of the 
value placed in the data ABSOLUTE declaration and the size 
of the data segment. This value seems to have no effect on 
the location of the file but, too small a value will cause 
an error when the file is loaded. See Appendix F for 
examples of link option files that produce correct results. 

MCORTFX processes may be linked together as PL/I-36 
procedures allowing sharing of PL/I-86 runtime routines or 
nay be linked individually. Separate processes reouire more 
memory due to replication of PL/I-86 support routines, 
however, great care is required with shared routines as 
PL/I-86 runtime routines are not reentrant. Further, CP/M- 
86 subroutines are neither reentrant nor repl icateable . I/O 
functions, therefore, must be viewed as shared resources and 
access to them strictly controlled. 
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IV. MCORTEX LOADER 



A. KORE.OPS / KCRE.TRC 

During development the MCOFTEX executive was assigned to 
the file KORE and was accessible through the INTELLEC MDS 
system. This file contained all the multi-processor 
operating system functions, the initial GLOBAL memory, the 
supervisor, the interrupt vector, and various low level 
functions not accessible to the user. To execute MCORTEX it 
was necessary to download KORE and user processes to the 
target system, disconnect the transfer cable, connect the 
target system terminals, and pass control to KORE on each 
processor. See [Ref. 2: Appendix A, B] for a complete 
description of the process. The KORE.OPS and KOKE.TRC files 
loaded by the f^CORTEX and MXTRACF loaders respectively, are 
derived from the original KORE file with changes as 
discussed in Chapter II. Additional changes were made to 
compact the KORE.OPS file, and to relocate the IMIT^MOD for 
simpler, more CP/M-66 compatible loading of user processes. 
Appendix A details the procedure used to produce KORE.OPS 
and KORE.TRC from KORE. Further discussion will use the 
terms KORE and MCORTEX to mean either KORE.OPS or KORE.TRC 
and MCORTEX or MXTRACE respectively. When this 
generalization does not hold, the , di f f erences will be noted. 
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Currently the f^CORTEX environment can be establish ei 
under the CP/!^'-86 operating system. Control is then passed 
to MCORTEX automatically, and user processes are created in 
the user initialization module. Control can be passed baclc 
to the C?/^-P6 operating system if applicaole. 

E. KCRE CMD TILE 

Establishment of the MCORTEX environment through 
invocation of KORE as a command file is not feasible for 
several reasons. First, interpretation of C'dD file headers 
assumes each CND file to be contiguously constructed. SORE 
is not. Second, SORE memory reouirements include an 
interrupt vector. The C?/m- 35 memory management system does 
not allow loading of command files into the interrupt vector 
space. Third, the data segmient for the ini t ia li za t i on 
module depends upon the cT.ount of executable code generated 
by all processes linked with the module and is not static. 
The data segment register initial value must be passed to 
SORE after processes are loaded. Fourth, SORE includes 
GLOBAL memory, which should be loaded only once, while .SORE 
must be loaded into each processors local memory. An 
additional consideration is the simplicity and flexibility 
gained when KORE and user processes are loaded via the same 
mechanism to oroduce the MCORTEX environment. 
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C. CPERATICM OF THE MCCRTEX LOADER 

MCOETEX.CMD is an executable file unier the CP/^i-SS 
operating system. Invocation of MCCRTEX without KCRE.OPS on 
the default drive results in ar error message and return to 
CP/M-36. MXTRACE reauires KORE.TRC. The loader announces 
that it is on line, and reouests an entry to indicate 
whether or not GLOBAL memory should be loaded. Only the 
first processor activated should load GLOBAL memory. 
Subseouent loads of GLOBAL memory would destroy data needed 
by executing processors. If no initial load of GLOBAL 
memory is made the results are unpredictable. 

KORE is im.mediately loaded with or without GLOBAL memory 
as directed. The load is accomplished using CP/M-se 
functions, but does not use the CMD load utility. Instead, 
KORE is read in and positioned block at a time as required. 
The interrupt vector is not maintained as a part of the KORE 
files, but is generated within the loader itself with moves 
directly from loader data memory to the interrupt vector 
space . 

KORE load is followed by a request for a process file 
name. The loader expects at least one file name to be 
entered, and results are unpredictable if one is not. User 
processes are loaded using the CP/M-66 CMD load utility, and 
user processes must be CMD files. The entire file name must 
be entered including the three letter extension. After 
loading the first and subseouent user files, the loader 



34 



reauests another file name. To exit user process loading, a 
return with no preceding character should he entered. The 
last file entered must contain the initialization module, as 
the data segment register value of this file is determined 
and passed to KOF.E. 

Completion of user process loading causes control to he 
passed to MCORTEX. MCORTEX initializations are performed, 
including creation of the IDLE and INIT processes (also 
MONITOR with MXTRACE), and the user initialization process 
is entered. Operation after this point is determined hy the 
user processes. An ADVANCE on the initialization event 
count 'EE' hy any process will halt all processors, 
returning them to CP/M-86 control. The demonstration 
programs in Appendix E end with a PREEMPT call to the INIT 
process. This is only to demonstrate the operation of 
PREEMPT and, in fact, due to multiple declarations of the 
INIT process causes only the first processor activated to 
return to CP/M-86 control. 
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pl/Ii56 compatibility 



A. THF SUPERVISOR 

KCRE is written in PL/M-86, and reauires calls made tc 
the supervisor to meet PL/M-86 parameter nassin^ 
conventions. Further, the supervisor reauires four 
parameters with every call re, 2 :ard less of the function 
invoked. To meet parameter passing reauirements , and to 
hide details of the supervisor implementation, a translation 
mechanism between user calls and the supervisor is reauired. 

The first parameter expected by the supervisor is a byte 
value iniicatin/? the function reauired. Following the 
function code should be another byte, a word and a pointer. 
The formal parameters these actual parameters represent are 
different for different function calls, and in some cases 
the values passed are not used at all. The supervisor uses 
the function code to determine which parameters are 
applicable, and simuly ignores the rest. It is inconvenient 
and unnecessary for the user tc provide unneeded parameters 
or to remember which function codes belonf^ to which 
function s . 

Two files (see Appendix D) are provided to mitigate 
differences between simple user calls and supervisor 
reauirements. The file aATEWAY.PLI should be %INCLUDE'd in 
all programs making calls on MCORTEX functions. It declares 



36 



the MCORTEX functions as ENTRY values with attribute lists 
natchina: the parameters expected by GATE’^iOD. Note that 
»ntry declarations reserve memory space for the parameters 
specified. Each user process must have separate memory set 
aside for these function calls to avoid concurrency problems 
in lATEMOD. 

GATEMCr.OPJ (or GAT5TRC.0BJ) should be linked with all 
user processes. It provides the object code necessary to 
convert user calls to the format expected by the supervisor, 
including' addition of function codes, and padding of calls 
with extraneous parameters. GATEMOD uses no variable data 
segment of its own, and simply makes moves from user data 
areas to the user stack. This ensures that, so long as the 
user data areas involved are unshared, GATEMOD is reentrant. 

Note that all parameters in the GATEWAY declarations are 
BIT^F) or BIT(16). PL/M has two unsigned integer data 
types, BYTE and WORD, that are used extensively in MCORTEX. 
There are no corresponding data types in PL/I-36 , and 31 T ( 6 ) 
and PIT(16) are the closest available substitutes. In 
MCORTEX processes it is sometimes convenient to add tvc 
?IT(16) numbers. Unfortunately, mathematical computations 
on BIT(16) values are not supported in PL/I-36. This set of 
conditions necessitated the development of the function 
Add2EIT16 included in GATEWAY. As the name implies, this 
function adds two BIT(16) parameters as unsigned integers 
and returns the result as a BITdc) value. If a carry is 
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prcluced, it is ignored, and the result returned will, of 
course, be incorrect. 

B. PL/I-86 PARAMETER PASSING CONVENTIONS 

Parameters passed in a PL/I-66 procedure call are 
accessed via an array of pointers [Ref. If*’: p. 16.1] . The 
location of the pointer array is provided to called routines 
through a pointer in the BX register. Using register 
indirection and indexins, pointers to actual oaraneters are 
loaded into system pointer registers. Parameter values can 
then be manipulated as reouired. Figure 4 is a 
diagrammatical representation of the parameter passing 
structure that might be established by PL/I-86 for a call on 
the MCORTEX supervisor. 

A.ll BIT(16) values returned to user programs by the 
GATEiMCD , either as a result of a call to ADr2BIT15 or as a 
result of calls to the MCORTEX functions READ or TICKET, are 
returned in the BX register. This is the convention followed 
by 3?86 based PL/I-86. 

C. PL/M REENTRANT PARAMETER PASSING 

All MCCRTEX PL/M-56 routines are reentrant. The ASM86 
routines lock out interrupts during execution so that 
reentrancy is not an issue. In particular the MCCRTEX 
supervisor is reentrant. This is the only KOBE module 
accessible to user processes. 
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PL/M-S6 reentrant orocesses expect parameters to be 
passed on the stack in the order they appear in the 
orocedure declaration. Pyte values reouire two bytes on the 
stack even thou^^h only one byte contains usable information . 
Parameters are followed immediately on the stack by the call 
generated return address. The called process stores the 
callers PS and P? registers on the stack, and establishes 
its own DS and PP values. Access to parameters is via an 
index referenced to the called process 3P value. Figure 5 
is a diagramma t ical representation of how a stack is 
structure! following a call to G ATE$KFE?EF. . 

GATEMOD and GATETRC both act as translators of user 
calls into form.ats required by the MCOETEX and b'XTEACE 
supervisors respectively. The only difference in the two 
gate modules is the address of GATE$KEEPER in their 
associated KOREs. Using the PX register link to retrieve 
data, they build the stack structure expected by the 
supervisor nodule, supplying function codes and padding when 
required. They then make a call on GATE$KEE?Eh. If the 
call is to READ or TICKET, space is reserved on the stack 
for the returned value. This value is POP 'ed into the BX 
register before exiting to the calling process. 

The gate modules provide one additional service. KOHE 
functions do not guarantee the integrity of the ES register. 
PL/I-86 in OPTIOMS (MAIN) initializations, however, 
establishes the ES, SS, and DS registers to be of eoual 



1 PRE-CALL ' 

1 STACK 1 

1 


1 


1 


UNUSED BYTE 


1 


N 


BYTE PARAMETER 






UNUSED BYTE 




BYT 


BYTE PARAMETER 




WORDS 


WORD PARAMETER 
TWO BYTES 


PUSHED 

DV 


PTR 


POINTER PARAMETER 
FOUR BYTES 


r? Y 

CALLER 


1 


RETURN ADDRESS 
FOUR BYTES 


J 




CALLER DS 
TWO BYTES 


PUSHED 

G V 




CALLER BP 
TWO BYTES 


Y 

CALLEE 



I (3 _ S 

!=• ^ Ft M e: T e; R 



Ft E E |N| T Ft |N| T 
E#=»SS I tNiG 



41 



value, and some runtime routines expect this relationship tc 
ce fT-aintained. To overcome the conseauences of these 
opposing positions, the r^ate modules push the ES re/tister 
onto the stack on entry, and pop it before return tc the 
calling routine. From the standpoint of user processes, th<= 
FS register value is unchanged during ^COKTEX calls. 

D. GEMERATIN'G MCORTEX PROCESSES USING PL/I-86 

Procedures written in PL/I-86 become MCORTEX processes 
via execution of CREATE PROC functions. MCORTEX processes, 
though written, compiled, and linked as PL/I-86 procedures, 
are distinct processes. Each reauires the state of the 
orocessor to he ore pa red by the MCOP.TEX executive prior to 
every entry into the process. This is accomolished 
transparently when making MCORTEX function ^alls. 
Procedures in a MCORTEX process can be accessed from within 
the process normally, however, a MCORTEX process must be 
entered through a MCORTEX function call, and never through a 
PL/I-66 procedure call. Also MCORTEX processes can be linked 
into a single CMD module or can be d evelo pel as separate CMD 
modules. In the first case processes may share common PL/I- 
86 runtime routines as well as CP/M-36 utilities. In the 
second case PL/I-66 runtime routines are not shared, tut 
CP/M-86 utilities, if used, are still shared. 

MCORTEX currently expects an initialization module to be 
located starting at 0439OH. This module is the first user 
process executed, and can be used to create user event 
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counts and sequencers, as veil as processes. “fter all 
initializations are perforned, an AV.' ^ IT ( 'FE 'B4 , '00/51 '54 ) 
should be executed. This puts all in i t i al i za t i on processes 
on a comnon reserved event count thread. in ADV ANCE ( 'FS 'E4 ) 
by any process will return all pr^'cessors to CP/M-36 control 
(assumin^^ CP/M-86 is resident locally). 

MCORTEX processes are written as parameterless PL/I-3r 
orocedures. Execution of CREATE PROC functions in the 
initialization nodule establishes a virtual processor for 
each process, and sets all process states to ready. The 
A'A’ilT call at the end of initializations forces a scheduling:: 
to take place. The highest uriority virtual processor will 
be granted access to the real processor. Further scheduling 
is controlled by user processes using MCORTEX functions. 

Parameters required by the CREATE PROC function include 
values unknown to the programmer until after all processes 
have been compiled and linked. This requires that dummy 
values be urovided for the first compilation and linking. 
Links should be performed with tne MAP command option 
selected, as this provides information relevant to user 
process definition. A partial MAP print out for the n 
demonstration process is shown in Table 2. 

CREATE PROC has eight parameters. The first two are 
process identification and process priority. These are 
arbitrary 3IT{8) values assigned by the programmer. Four* 
ether parameters, the CS, DS, SS, and ES register values. 
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TABLF 2: 



Map for file: D1TBC.CMD 
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A 1 i^n 


Comb 


Name 


Class 


2CE3 


(0000 


0005-2CE7 ) 


BYTE 


PUB 


CODE 


CODE 


05C4 


(0000 
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0003 


(0000 


075£-0'^5A ) 


WORD 


COM 


7CNCOD 


DATA 


0025 


( 0000 


075C-0780) 


WORD 


COM 


SYS IN 


DA I A 


002S 


(0000 


0782-07A9) 


WORD 


COM 


SYS PRINT 


DATA 


Groups 


Segments 











CGEOUP CODE 



DGROUP 


DATA 


7C0NSP 


7FPBSTK 


7FPB 




7C.NCOL 


7FILAT 


7FMTS 


7EEUEF 




70NC0D 


SYSIN 


SYS PR I NT 





map for module: INIT 

001E (0000:0005-0022) CODE 

0021 (0000:0100-0120) DATA 

map for module: MCDEMO 

0072 (0000:0023-0094:) CODE 

0039 ( 0000 :0122-015A) DATA 

map for module: L0G_0^1 

0127 (0000:0095-01BE) CODE 

00C0 (0000:0150-0215) DATA 

nap for module: GATEM/T 

00D0 ( 0000 :01BC-02SB) CODE 

0004 (0000:021C-021F) DATA 
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can te deternined by perfcrmir.i^ an executable lead of the 
process CMD file under* DCT66. Values displayed by I’DT^6 
include the CS , and DS register values. As T.enticned 
earlier, it is reouired that the DS, SS, and 5S register 
values be equal for proper operation of some FL/I-S5 runtime 
routines. Fxcept under special carefully considered 
circumstances, programmers should ensure that this is the 
case. The remaining two parameters are pointer values 
obtainable from the link MAP file. 

The first section of the map file gives a summary of all 
code and data segments included in the associated CMD file. 
Several data segments are listed in order of their 
occurrence in memory, from lowest offset to highest offset. 
The ranee of the last entry elves the last address offset 
occupied by any lata segment. Higher address offsets still 
within the memory space of this CMD file are assiened to 
stack and free space structures by PL/I-86, with the system 
stack precedirg free space. The 3? value reouired by the 
CREATE PROC function can be obtained by adding the size of 
the stack required to the last offset occupied by data. If 
another MCORTEX process stack is required, its SP can be 
obtained by adding its size to the S? of the previous 
process. The system stack can be divided as necessary by 
continuing in this manner. The total number of bytes 
occupied by MCOHTEX process stacks should not exceed the 
number of bytes provided by PL/I-36 for the system stack. 
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The MAP file also contains maps of the iniivi'inal 
modules linked into the CMD file. These maps provide data 
about locations of code and data se;?ments within the lar^jer 
code and data segments summarized in the segments section. 
The besinnirs address of each module is siven. This offset 
represents the IP value for that particular module. 

With all parameter values determined, the initialization 
Process must be recompiled, and all processes relinked. The 
resulting CMD file can be executed in the MCCr.TPX 
en vi ronment . 
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COMCLUSIOMS 



VI . 

The principal ,?:oals of this thesis were met. MCORTIX 
has been inte,^rated into a selected environment to provide 
multi-processing and multi-processor capabi li t i es . Assets 
available under the CP/'^-86 operating system have been made 
available to f^CORTEX processes. Also, development of 
"^CORTEX processes in the high-level language PL/I-86 has 
been provided for through reentrant gateway transformations 
between PL/I-86 calling structures and the structures 
expected by the MCOHTEX supervisor. Programs have been 
written to demonstrate that each of the MCORTEX functions 
can be used from within a process written in PL/I-86. Two 
versions of the operating system kernel have been produced. 
One version, found in the KORE.TRC file, retains all 
diagnostic cues of the development version, primitive I/C 
functions, and the MONITOR. The second version, found in 
the KORE.OPS file, has these items removed. 

No testing of the system, except to monitor the proper 
operation of the demonstration programs, has been 
accomplished. The demonstration programs have been run 
successfully using two slave SBC 's and using the master SBC 
and one slave SPC. The loader program sometimes will not 
accept a file name without the drive prefix. No pattern to 
this behavior has been observed. 
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As noted earlier, neither CP/M-S6 nor PL/I-36 runti.Te 
routines are reentrant. Sharine: ary section of code froT 
either system in a concurrent environment requires care and 
uroper control of access to shared code. In many instances 
this can he accomplished through application of MCORTS^ 
functions. When proper sequencing throui:h PL/I-86 runtime 
routines cannot be guaranteed, processes using shared 
routines must be separated, and multiple links performed. 
This produces a copy of the runtime routines for each linked 
group of modules. Since processes not linked into the same 
CMC file do not share common data structures, communication 
between the modules becomes more complex. PL/I-86 uses 
sixteen bit pointers, and has no built in mechanism to 
transfer data outside the data segment assigned to the 
linked module. This deficiency also adversely affects the 
communication through common memory of processes on separate 
SBC's. 

Future research with MCORTFX should investigate the 
problems discussed above. Testing of the system using more 
than two SEC 's should be conducted. Investigation of the 
relation ships between M CORTEX processes sharing sections of 
PL/I-85 and CP/I^-86 code must be conducted, and the best 
means of controlling access to shared code determined. If 
possible, this should be accomplished in a high priority 
system process that is transparent to users. Some convenient 
means must be provided to give processes access to memory 
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outside their assigned data segments. Finally, -»FGIS system 



processes and real time input simulation 
adapted to the MCORTEX environment, 
measurements made. 



processes should he 
and performance 
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APPENDIX A 



isis-ii TO cp/M^se transfer 

I. PRE-PCWER-CM CHECKS 

A. SBC confii^ured for CP/M-86 cold boot is ir MULTIBUS 
odd slot and no other clock: master SBC is installed. 

E. Bubble memory is in MULTIBUS. 

C. REMEX controller is in MULTIBUS, and properly 
connected to REMEX drive. 

D. If MICROPOLIS hard disk is to be used, ensure that 
it is connected to clock master SBC. 

E. Ensure 32K shared memory module is installed. 

F. Connect FS232 transfer cable between J2 on SBC, and 

2400 baud CRT port of the MDS system. If this cable has a 
'null modem' switch on it, set it to 'null modem’. This 
transposes wires 2 and 3. The switch may alternately be 

marked 'computer to computer' and "computer to terminal'. 
Set to "computer to computer". 

G. Connect any CRT to the 9600 baud TTY port of the MDS 
system. Ensure CRT is set to 9600 baud. 

H. A CRT will be connected to the SBC after the loading 
is completed, and should have an RS232 cable hooked to the 
serial port. The CRT connection should lead to a flat 25 
wi-re ribbon and J2 connector so it can eventually be hooked 
to the SBC 's serial port. 
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II . POWER ON PROCETURES 



A. Turn the power-on k-ey to ON position at MULTIBUS 
f raTie . 

B. Press RESET near power-on key. 

C. If needed apply power to MICROPOLIS hard disk. 

D . Apply power to REM EX disk system. After sys t 
settles, put START/STOP switch in START position. Following; 
a lengthy time-out period, the READY lii^ht on the front of 
the RFMEX disk system will illuminate, and the system is 
ready. Alternately, the RESET button on the MULTIBUS can he 
pressed three times, with a small time-out for the system to 
settle each time. Following; the third button push, the 
READY on the front of the REMEX disk system will illuminate 
as before. 

E. Insert the boot disk into drive 3. 

F. Apply power to the CRT. 

G. Put the Bubble Device RUN/HALT switch to RUN. 

H. Power up the MDS disk drive. 

I. Power up the MDS terminal. 

J. Turn power-on key to ON at MDS CPU. 

III. BOOT UP MDS 

A. Place diskette with executable modules and SBC361 in 
drive 0 . 

E. Push upper part of boot switch in (It will remain in 
that position). 

C. Press reset switch and then release it. 
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D. When the interrupt light ttz lights on the front 
panel, press space har on the console device. 

E. Reset the hoot switch by pushing the lower part of 
the switch. 

F. ISIS-II will announce itself and give the 
prompt . 

IV. LOAD MCOP.TEX 

A. At MDS console, type ’’S3C861<CR>" . 

B. IF '^CONTROL*' appears, SBC was not able to set its 
baud rate. Press RESET on MULTIBUS frame and try again. 

C. If 'Bad ENDS connection’ appears, you will not be 
able to continue. Check connectons. Make sure diskettf' is 
not write protected. Push RESET at frame. Try again. 

D. SBC861 will announce itself and prompt with ’ . ” . 

E. Type "L KORE<cr>'. Wait for ’ . ’ . At this point the 
EORE module has been loaded into the SBC memory, and into 
the shared memory board. 

V. SAVING KORF TO CP/M-86 FILE 

A. Leaving the SBC861 process active on the MDS system, 
disconnect the RS232 J2 connector at the SEC, and connect 
the terminal prepared earlier. 

B. *t the newly connected terminal type ’GFFD4 :4<c r> ’ . 
The CRT will not echo this entry. Respond to the cues that 
follow as reauired until CP/M-86 is up. 

C. Now enter DDT86. At this point KORE, CP/M-86, and 
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DDTB6 all are resident in the SBC memory ar.d in the 32K 
shared memory board. 

D. Usine DDT86 commands, reposition the parts of KORE 
required so that the code can be saved into one file. Data 
necessary to determine the initial locations of the code is 
found in KCRE.MP2. The DDT86 instructions used for the 
current KORE. OPS and KOFE.TFC files follows: 

KORE. OPS 

MBB0 :0 , EFF ,4S0 :0 Move, starting at address BB0>:0, 
DFF bytes of code (main part of KORE) to new start address 
430:0. 

M439 :0 , 80 , 560 : 0 Move, starting at address 439:0, 80 
bytes of code (initialization nodule) to new start address 
560:0 (following main part as moved above). 

ME794 : 0 , 6BF , 568 : 0 Move, starting at address E794:0, 
6BF bytes of code (GLOBAL memory) to new start address 568:0 
(following initialization module). 

WKORE .OPS ,480:0, 153F Write to the default disk' a 
file called KORE. OPS starting at address 4S0:O and 
containing 153F bytes. 

KORE.TRC 

M439 :0 , 25 ,C66 :0 Move, starting at address 439:0, 25 
bytes of code (initialization module) to new starting 
address C6B:0 (following main KORE code). 

MAC 0 : 0 , 1 *FF ,439 : 0 Move, starting at address ACO:0, 
lAFF bytes of code (main KORE + initialization module) to 
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new starting address 4.39:f*. 

ME794:0 ,6PF,439:1B00 Move, starting at address 
E794;0, 6BF bytes of code (GLOBAL rremory) to nev starting 
address 439:1B00 (following ini tialiaztion module). 

WKCRE.TRC ,439:0, 21Ce Write to the default disk a 
file called KORE.TRC starting at address 439:0 and 
containing 21C0 bytes. 

NOTE: The main PCORE module, the initialization module, 
and GLOBAL memory are located to separate parts of the SBC 
by the MCOKTEX loader. The system used requires that these 
modules be saved into the file in 126 byte blocks. Further, 
any change in the number of 128 byte blocks occupied by each 
must be reflected in the MCORTEX loader code. 
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APPENDIX B 



MCORTEX UNDER DDTS6 

When troubleshooting MCORTEX processes using DDT86, it 
is important to realize that DDT66 break points are 
implemented as 8086 commands written at the locations in 
memory selected as break points. If ’BDTB6 MCORTEX'’ is 
executed, the MCORTEX system will be loaded unier the 
control of DDT86, If an attempt is made to execute the 
loader code to a break point inside a user module v«hich is 
still to be loaded, DDTS6 installs the break point command 
as directed, but this command will be overwritten when the 
user code is loaded. The code will execute through the 
intended break point, and the desired result will not be 
achieved . 

To enable break points within user processes, execute 
’DBT86 MCORTEX* as before. Now set a break point inside. the 
MCORTEX loader code, but after KORE and the user processes 
have been loaded. The loader will now input KORE and user 
modules as directed, and EDT86 will break inside the loader. 
At this point further break points within KORE and user code 
can be successfully set, and will not be overwritten. 

Trying to use DDT86 on PL/I-86 code can be very 
confusing as the 8086 code produced is not familiar. Use 
the MAP function of the LINK 86 linker to give yourself 
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landnark addresses as you traverse the code. The MAP file 
gives you beginning addresses for each of your procedures 
and each of the runtime modules provided by PL/I-36. 
Similar information is found in the MP2 files for KOF.E code. 

When tracing code, use a hierarchical search. Use go 
instructions with break points, or individual trace 
instructions to execute small sections of code at a time. 
Break points should be set just past the next call to be 
executed. When a failure occurs, you will have bracketed 
the possible code causing the error. If the error is within 
the call, simply trace into the call one trace step, list 
the code and proceed in the hierarchical manner usel before. 
Mote that you must be mindful of jump instructions in the 
execution path. You may have to trace several bytes of code 
to ensure that the execution path includes the break 
address. This procedure will get you to the errant code with 
the least amount of tracing. 
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APPENDIX C 



MCOETEX LOADEF 

This file when assemhled produces the MCORTEX loader. 
The loader when invoked from CP/F‘-S6, sives an indication 
that it is on line, and then asks if ilLOBAL memory is to he 
loaded. The first CPU entering the KCOFTEX environment 
should load GLOBAL memory, all others should not. The last 
urocess loaded on each SBC must contain the initialization 
routine containing all create process functions. This file 
contains code that is conditionally assembled to create 
NIXTRACE. The value of MCORTEX in the code controls which 
module is nroduced, and the name of the file produced must 
he changed oy the user. 
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• ^0 %•« 

* <^«i ^,' <» •» 



0 ^0 ^0 ^0 «*« «*««*« %}0 ^0 %■# 0« ^0 0^0 0^0 0 ,' 0 0^0 0« «*« kl^ «J* »l« «■« %l# «'< «i« « 

» 0^ ^j-« 0f* 0f% . |«<|' •»(» 'i"' ^*'* 'i' '.■* 'i* ^4' ^i' ^o ^r* ' 



* MCOPTIX / MXTHACS File TEX/TP.C.A86 Rowe 13 Feb 84 



This pro^rar loads the MCCRTFX operating system from 
disk into the current C?/M environment. The system 
memory space is reserved using C?/M memory management 
functions. Since IMITIALPROC must be over written by 
the user INITI^LPROC, the memory it occupies is not 
reserved. The portions loaded into the interrupt 
area and into shared memory (ie. GL03ALM0PULE ) are in 
areas not managed by CP/M and are thus protected from 
user overwrite when using PLI CMD files. Conditional 
assemblies allow assembly of either MCGRTF.X nr MXTHAC 
depending on the value assigned to MCORTEX at the 
beginning of the code. Nine such conditional 



=!< 

❖ 



3!< 



assembly statements are included. 



:;V 

-/ 

«t* / 

=:V 
❖ / 

-/ 

I 

• / 

/ 

•V 

V-'/ 

V / 
-/ 



0 ^0 %V >*0 S** «*« 

» 0^ ^1% •X' W,% 0f00 0f0 »•!» 0^*0 0f'0> 0,00 



kW ^*0 %*> %• 



00*0 «,•# 0^0 %*0 %*0 • 0 J 0 *>0 S** 0 J 0 \*0 00*0 S*0‘ S>0 V* 't*"' / 

<)'» 0,00 0^ 0f0 0^ 0f0 0^0 0^S ^,-s 0^0, 0^< 0f0 0^00 0^ 0f0 I 



DSEG 

ORG 0000H 

[V, CORTEX / MXTHACF SELECTION 



5 |: ^ 5 ;o;i j;c >;i 5 j: ^ 5 ;: 



- mn nr 'r 



/ 



MCORTEX 



EOU 1 SET TO ZERO FOR 

mxtrace, to one for 

MCORTEX 



ADDRESS CONSTANTS 




' 0 X 0 0 X 0 ^0 ^*0 *X0 

■ if0 0^00 0f0 0-^Ti 0f0. 


3j£ 3J<3}C 3|r 3[t 3|i 3jc 3;« 3;c 3|c >J? 3|t >JC 3*^ 7^ i\i ?JC 7\i 5^ >!« ^ 


FCE 


EOU 


005CH 


;❖❖❖ file control 


FCB NAME 


EOU 


005DH 


block 


FCE EXTENT 


EOU 


0068H 




FCB_CR 


EOU 


007CH 




I NT ADD CS 


EOU 


0011H 


INTERRUPT CODE 


INT^PT OFFSET 
IF MCORTEX 


EOU 


0033H 


SEGMENT AND 


INTRPT CS 
ELSE 


EOU 


0C6BH 


VECTOR 


INTPPT CS 
ENDIF 


EOU 


0C31H 


\nnnn 1 ###^ < 


;❖=!=❖ pgpj; number constants 




: 5|t s;r y.t 3 ;? 5|i 5[t s;c s^c ^ ^ 5;c 5|t j;t sjc 3 }::^ 5 ^ ;[c ;(t 3 ;? ^ 


EIGHTH K 
IF MCORTEX 


EOU 


0080H 




NUM KOBE BLOCKS 
ELSE 


EOU 


001CH 




NUM KORE BLOCKS 
ENDlF 


EOU 


0035H 


2 #### < 


ASCII 0 


EOU 


'0' 




ASCII 9 


EOU 


'9' 
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ASCI I_A 
?SCI I_Z 
COLON 
SPACE 
PIPIOD 



ECU 'A' 
EOU ' 1 ' 
ECU 

EOU ' ' 
ECU 



CR ECU 000DH 

LF EOU 000AH 



CONTROL TR^NSFEP CONSTANTS 



%'< ^0 -J0 fcV ^*0 sV t 

^X' ^ ^C' 'f* 'I' 'I' *T* *T* "O *1' 'C *T' 'IP 'P / 



IF MCORTEX 

K0PE_SP 

KORE_SS_VAL 

KCRE_rS_VAL 

ELSE 

K0RE_SP 

KORE_SS_VAL 

KORE_DS_VAL 

ENDIF 



ECU 00S0K 
EOU 0C78H 
ECU 0C69H 

EOU 00FFE 3 < 
EOU 0C30H 4 < 
EOU 0C00H ;#### 5 < 



CP/^^ FUNCTION CONSTANTS 



r sic ilr 5*s 2 ic ik s!r sk 5 jc sic s!c 



CPM BDOS CALL 


EOU 


224 


SYSTEM RESET 


EOU 


0000K 


CONSOLE OUTPUT 


EOU 


0002H 


READ 


EOU 


000 A.H 


PRINT STRING 


EOU 


0009R 


OPEN FILS 


EOU 


000FH 


READ SEOUENTIAL 


EOU 


0014E 


SET DMA OFFSET 


EOU 


001 AH 


SET DMA BASE 


SOU 


0033H 


ALLOC MEM A3S 


ECU 


0038R 


FREE ALL MEM 


EOU 


003AH 



PRCCRAM_LCAD EOU 003BH 

NOT FOUND EOU 00FFR 



MESSAGES 



/ 

«>|> «>|% ^1% ^p #p ^p #p / 



IN_STRING D3 15 

RB 16 

NO_FILE_^^SG DB 'KORE NOT ON DEFAULT DRIVS$' 

NO_IN_FILE_MSG DB 'INPUT FILS NOT ON DESIGNATED DRIVE$' 
NO_MEMORY MSG DE 'UNABLE TO ALLOCATE MEMORY SPACE FOR' 

DB ' MCCRTEX$' 

FILE_FORM_EKF._MSG DB 'INCORRECT FILE FORMAT - TRY AGAI,N$' 

START_MSG DB 'MCORTEX SYSTEM LOADER ON LINES' 

?_NAME_MSG DB CR ,LF.LF , 'ENTER PROCESSOR FILE N AME : ' , CR , LF 
DB '$' 
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GL0BAI_0_MSG DB CR , LF , LF . 'LOAD GLOBAL MEMORY? ' ,CR , LF 
GM2 MSG DP. '”y" TO LOAD, "RETUPN" TO S K IP ' , CR , LF , ' ^ ' 



MCORT^X RELOCATION VARIABLES 



>,i 5|C 






^ ^ n' 



CAUTION CAUTION CAUTION CAUTION 
The follov/ins: five lines of code should not 
separated as this pro^jram assumes they will 
found in the order shown. The code is used 
memory allocation and as a nointer to KORF. 
CAUTION CAUTION CAUTION --- CAUTION 



•^0 s ;: 

1-0 

f 0 I* / 

y.« o*' / 

/ 

'r '.*• O' ''i" 'i' o' 'T' O* "I' / 



KOBE START 


DW 


0030H 


;5:c.:o;c CAUTION 


IF MCORTEX 
KOREl BASF 


DW 


0BB0H 


CAUTION 


ELSE 

ECREl BASE 


DW 


0AC0H 


;#### 6 #»## < 


ENDIF 

KORE 


EOU DWORD PTR KORE START CAUTION 


IF MCORTEX 
XOREl LENGTH 


DW 


00E0H 


CAUTION 


ELSE 

KOREl LENGTH 


DW 


01C0H 


7 #### < 


ENDIF 

KOREl_M_EXT 


DP 


0 


CAUTION 


IF MCORTEX 
KORE NAME 


D3 


'KORE 


OPS ' 


ELSE 

KORE NAME 


DP 


'KOBE 


TRC ' ;### 6 ### < — 


ENDIF 

K0RE2_B ASE 


DW 


0E794E 


GLOBAL MEMORY 


INTERRUPT VECTOR 


DW 


INTRPT 


OFFSET, INTRPT CS 


I NT VECTOR ADD 


DW 


I NT ADD 


CS 



INIT 


OFFSET 


DW 


0000H 


• 

^ -r -r 


INITIALIZATION 


INIT 
IF M 


BASE 

CORTEX 


DW 


0439H 


J -1' 5^' 


ROUTINE PARAMETERS 


INIT 

ELSE 


DS SEG 


DW 


0C93H 


; 


FOR DYNAMIC ASSIGNMENT 


INIT DS SEG 
ENDIF 


DW 


0C58H 




;#### 9 #### < 


INIT 


DS OFFSET 


DW 


0068K 


• 5|C 5,? 


WHEN USER INITIALIZATION 


INIT 


_IP_OFFSET 


DW 


0074H 


; 


IS INDICATED 




CONTROL TRANSFER 


VARIABLE 


» 2 >lc >;< 


» / 
k ^1% ^1% #1% #1% / 


KORE 


SS 




DW 


KORE 


SS VAL 


KORE 


_DS 




DW 


KORE_ 


>S_VAL 
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ST^HT CODF SEGMENT 



j'S ^ j'C j'i 5*t 5*C 5*» J*C 3^5 3*C 3*» j'j 3}c 



<»•# %w» V* y/ 

^, ■ *f* 



/ 



^^CORTEX_LOADFR CSEG 

CALL CLR_SCREEN SCREEN CONTROL & LOG ON 

CALL MCORTEX LOAD MESSAGES 

CALL CLR SCREEN 



CLD INITIALIZATION 

RUSH AX 



GET LOAD GLOBAL INDICATOR 



w 

« >1% #|S ^1% ^1% 



5*^ :>\i jji i|: ?J: >|i :j; jjc 



CALL 


IN GLOBAL 


• 3,C 5jJ 


ASK IF GLOBAL TO BE LOADED 


^OV 


DX, OFFSET IN STRING 




GET BUFFER LOCATION 


MOV 


CL, READ 




CP/M 


PARAMETER 


INT 


CPM_BDOS_CALL 


J 


GET INDICATE}. 


; JloitjS' 


GENERATE KORE FILE 


CONTROL BLOCK 


GEN 


KORE FCB: 








MOV 


BX,10 




MOVE 


11 CHARACTERS 


MOV 


SI, OFFSET KOBE NAME 


* V 5jt 5ji 


POINT TO KORE NAME 


MOV 


DI.FCB NAME 


; 


POINT TO FCB NAME 


MOV 


KORE: 








MOV 


AL,[SI+BX] 


• 

j -r* n' 


GST CHARACTER 


MOV 


[DI+BXl , AL 


J 3p 


STORE CHARACTER 


DEC 


3X 








JGE 


MOV_KOHE 








; 


^ OPEN KORE. OPS FILE 


ON DEFAULT DISK 


OPEN 


KORE: 








MOV 


CL, OPEN FILE 






CP/M PAPAMETE? 


MOV 


DX,FC3 






CP/M para^:eter 


INT 


CPM BDOS CALL 






OPEN FILE 


CMP 


AL,NOT FOUND 






file found? 


JNE 


PROCESS KORE 






FOUND! CONTINUE 


JMP 


MO FILE 






GO INDICATE FRPOH 


PROCESS KORE: 








MOV 


DI ,0 








MOV 


FCB_CR [Dll ,DI 




4 

1 


STAnT WITH REC ZERO 


• ?r 


^ RESERVE MEMORY 


y« .c y« 


-1' -'i" nr n 


^ y 

^ ^ f 


MOV 


CL, FREE ALL MEM 




cP/M PARAMETER 


I NT 


CPM BDOS CALL 




FREE ALL MEMORY 


MOV 


CL, ALLOC MEM ABS 




CP/M PARAMETER 


MOV 


DX, OFFSET KOREl BASE 




PARAMETER 


INT 


CPM BDOS CALL 




ALLOCATE MEMORY 


CMP 


AL, NOT FOUND 




memory AVAILABLE? 


JNE 


LOAD MCORTFX 




MEMORY AVAILABLE! CONTINUE 
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JMP >^0 MEMORY ALLOC 



CO INDICATE ERF OR 



LOAD MCORTEX CODE AT 3AC0 



U 5;? 






<»’ir y 

' 'I' 'r ■».' 't' ■'!' '•'* / 



LOAD_MCORTEX: 

MOV DI ,3 

MOV 3?,NUM_KC?.E_BL0CKS 
MOVE_KOHE_LOO?: 

MOV DX.ECB 

MOV CL ,READ_SECUENTIAL 

INT CPM_'BDOS_CALL 

MOV ES,KOREl_BASS 

MOV CX,EIGETE_K 

MOV SI ,CX 

REP MOVSR 

DEC BP 

JNZ MOVE KORE LOO? 



SET DEST. OFFSET 
SET BLOCK COUNTER 

CP/M PARAMETER 
CP/M PARAMETER 
head in 123 BYTES 
5ht destination SEGMENT 
SET BYTE COUNT 
SET SOURCE OFFSET 
move 128 BYTES 
DEC BLOCKS TO MOVE 
IF NOT DONS, DO AGAIN 



LOAD INITIALIZATION MODULE 



V-* '‘V '■V V* -JU* V' V' 

«Y» •'Tp ^ «>,'V O'* ■*T* 






^^OV DI , INIT_OFFSET 
MOV DX,FCE 

MOV CL,READ_SEOUENTIAL 
INT CPM_BDOS_CALL 
MOV ES,INIT_BASE 
MOV CX,EIGHTH_K 
MOV SI ,CX 
REP MOVSB 



SET DEST. OFFSET 
CP/M PARAMETER 
CP/M PARAMETER 
READ IN 12c BYTES 
*-=<= SET DESTINATION SEGMENT 
SET BYTE COUNT 
SET SOURCE OFFSET 
❖ ^<'4= move 123 BYTES 



load GLOBAL MEMORY 



V« ^ 

'IT ^ ^ 



* V 'r 'i'' 't' / 



CM? IN_STRING+1 , OE 
JZ INSTALL_INTERRU?T 
MOV DI,0 

MOVE_GLOBAL_LOOP: 

MOV DX,ECB 

MOV CL,READ_SECUENTIAL 
INT C?^_BDOS_CALL 
TEST AL,AL 

JNZ INSTALL_INTEFRUPT 
MOV ES,K0RE2_BASE 
MOV CX,EIGHTH_K 
MOV SI,CX 
REP MOVSB 

JMP MOVE GLOBAL LOOP 



; 


SHOULD GLOBAL BE 


LOADED? 


; JjSSrS!' 


IF NOT, SKIP LOAD 




; 


SET TEST. OFFSET 




4' 5j' 


CP/M PARAMETER 




4^ 


CP/M PARAMETER 




4e };:>;< 


READ 128 BYTES 




5ji 5)C 5jS 


NO MORS DATA? 






IE NO MOPE, GO ON 




^ 


SET DESTINATION S 


FOMENT 


>p V 5|i 


SET BYTE COUNT 






SET SRC. OFFSET 






MOVE 123 BYTES 




:|c :Jc 


IF NOT DONE, DO A 


GAIN 



INITIALIZE INTERRUPT VECTOR 



INSTALL_INTE?.RUPT: 

MOV ES ,INT_VSCTOR_ADD SET DESTINATION SEGMENT 

MOV DI,e SET DEST. OFFSET 

MOV SI, OFFSET I NTERRUPT_VECTOK SRC. OFFSET 
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^OV CX,2 

KEP MO VS AX,a.X 



2 WCRES TO MOVE 
MOVE TWO WORDS 



READ IM A FILE NAME -- Jji 5(^ 5)^ sji 5(i 5(C ?(■* 5,» 5j» ?|^ 5ji i C Jj» 3|» 



READ_A_NAME : 

CALL PROCESSCR_NAME 
i^OV DX,0E?SE7 IN_STRING 
MOV CL, READ 
INT CPM BDCS CALL 



MSG TO INPUT A FILE NAME 
rx <— BUFFER LOCATION 
CPM PAPAMETE? 

GET A file name 



• SET ''^CR DRIVE DESIGNATION 



CMP IN_STRING+1 ,0 
JE EXIT_ROUTINE_P 
POP AX 



ARE THERE MORE INPUTS? 

IF NO, GET GLOBAL LOAD INDICATE?. 
;«<o:c ^fiST LOADED FILE WAS NOT INITIALIZE 



MOV DI ,0 



• Jli 



SET DESTINATION INDEX TO ZERO 



CMP IN_STRING+3,C0L0N ; 
JE SET_DRIVE 
MOV FCB[DIl,DI 
MOV SI, 2 
JS FORM FCB 



IS DRIVE DESIGNATED? 

IF YES, PUT DRIVE IN FOB 
SET DEFAULT DRIVE 

3RD POSIT IN_ST?ING, IS 1ST LETTER 



SET_DRIVE: 

MOV AL, IN_ST?.ING+2 ; 
AND AL.5FH 
SUB AL.40H 
MOV FCB[DI],AL 
AND AL,0F0H 
TEST AL,AL 
JNZ INPUT_ERRO-_B 
MOV SI, 4 



GET DRIVE LETTE? 

CONVERT TO UPPER CASE 
CONVERT TO A BINARY NUMBER 
SET DRIVE 

LIMIT LINE DRIVE TO A THROUGH 0 



5TH POSIT IN STRING IS 1ST LETTE? 



INITIALIZE FILE CONTROL BLOCK 



FORM FCB: 




MOV BX,0AH 


FILL FCB NAME WITH SPACES 


MOV AL, SPACE 


J 


FILL SPACES: 




MOV FCB NAME [EXT, AL 


• 5|c 3j? 


DEC BX 


• 


JGE FILL SP.ACES 





MOV FCE_CR[DI] ,DI 
MOV FCB_EXTENT[DI] ,DI 



NEW FILE 
NEW FILE 



CURRENT RECORD IS ZERO 
CU.RRENT EXTENT IS ZERO 



;>.•«=«=>!< install file CONTROL BLOCK NAME 






NAME_LOOP: 

MOV AL, IN_STRING fSI] GET A CHARACTER 
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CMP 


AL , PERIOD 


• X' 


JME 


FCB COMT 1 


• *1' 


MOV 


DI ,8 


• 


JMP 


FCB CONT 2 


; ^ 


FCB 


CONT 1: 




CALL 


VALID INPUT 


• 

O' 


TEST 


AX , AX 


• *JU 

O' 


JE INPUT ERROR B 


• <J, 

• O' 'I' 


MOV 


FCB NAME[DI] , AL 


• oC iji 


MOV 


AX, SI 


J ^ o' '' 


CMP 


IN STP.ING + l, AL 


J 


JB OPEN PROCESSOR 


; 


INC 


DI 


j 


FCB 


CONT 2: 




INC 


SI 


; :{;o«o' 


JMP 


NAME LOOP 





START TYPE? 

IF MO, COMTIMUE 

IF YES, ADJUST DFSTIMATION 

AND CONTINUE 

CHECK FOP LETTEF OR NUMPSR 



MOVE CHARACTER INTO FCB 
IS THIS LAST CHARACTER? 

IF YES, LOAD THE FILE 

IF MO, ADJUST FOR NEXT LETTER 

AND GO AGAIN 



EXIT_POUTINF 3; 

JMP EXIT_ROUflNE BRIDGE TO EXIT ROUTINE 

IMPUT_ERRCR_B : 

JMPF INPUT FFROF BRIDGE TO INPUT ERROR 



OPEN TEE PROCESSOR FILE 






/ 



OPEN 


PROCESSOR; 








MOV 


DX,FCB 


* O' 


CP/M 


PARAMETER 


MOV 


CL, OPEN FILE 


• X' 'r 


CP/M 


PARAMETER 


I NT 


CPM BDOS CALL 


• O' 


OPEN 


THE FILE 


CMP 


AL, NOT FOUND 


A 

* O' O' 


WAS 


FILE ON DISK 


JNE 


LOAD PROCESSOR 


• 5’^ Jjc 5jc 


IF YES, GO LOAD THE 


JMP 


NO INPUT FILE 


; >l£o‘o;c 


IF NO, SIGNAL ERROR 


LOAD 


PROCESSOR: 








MOV 


DX,FCB 


; S'r XcXi 


CP/M 


PARAMETER 


MOV 


CL, PROGRAM LOAD 


; XcX'Xi 


CP/M 


PARAMETER 


INT 


CPM BDOS CALL 


; XiX«X< 


LOAD 


THE FILE 


PUSH 


AX 


• }|; 


SAVE 


DATA SEGMENT 


JMP 


READ A NAME 




GET 


NEXT PROCESSOR 



=«❖ SET UP THE INITIALIZATION STACK 






J Jc X' 



CAUTION CAUTION CAUTION **=5^ CAUTION 

This code is hi,^hly dependent upon Input of PL/I 
CMD file with CS header first and data header 
second. This is the normal situation and should 
cause no difficulty. Also this code is highly 
dependent upon the location of the initialization 
module stack and the location of the DS and IP 
values within that stack. Chan^^es in stack 
location or organization should he reflected here 



Sjc 3 ,i 3 |i 3 ,^ ^ 

;,c 5 ,i y 

s;: 5|: j;t / 

O' V ^ 
/ 

Jtrs;;* / 
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CiU' 



ION 



CAUTION 



CAUTION CAUTION 



/ 



EXIT_HOUTINZ: 

?C^ AX 

rov IS , I\'IT_DS_SZG 
^OV IX , INIT_DS_OI?S FT 
•^OV IS : [3X] ,AX 
KC V DX C 

MOV px!init_i?_07?sit 

f^;OV IS;[3X],DX 

^^OV CL , SET_Dr"A_3 .^SI 

MOV rx,Ax 

INT C?M_3DCS_CALL 

MOV CL, SIT_rMA_OF?SIT 

MOV DX,IIC-ETE_r: 

INT C?M 3DCS CALL 



--- RICCVIR LATA SIGMIN? 
POINT TO IN IT STACK 
POINT TO DS ON STACK 
INSTALL NIa I NIT LS 
SIT NEW IP VALUE 
--- POINT TO IP ON ST«CK 
I ST ALL NEV. I NIT I? 
CP/M. PAPAMETEr 
SIT BASE P.AGE 
SET LMA BASE 
--- CP/M PAEAMITEE 
GIT OFFSET 
SIT DMA OFFS IT 



TRA.NSFI.E CONTROL TO MCORTEX 



/ 

#1^ #1^ #1% ^1% / 



MOV 


SP,KORE SP 




't' *r ^ 


KORE 


STACK PCINTI?. 


MOV 


BP,SP 






XORE 


STACK 3ASE 


MOV 


SS.KOHE SS 




%•<> »** «A« 

'r ^ 


KO I.E 


ST.ACK segment 


MOV 


AX ,DS 




-r "1' 


GET D 


ATA SEGMENT 


MOV 


ES . AX 




^ ^ 


POINT 


ES TO DS 


MOV 


DS,KOHE DS 




^ V 


KORE 


DATA SIG'^INT 


JMPE 


ES :KOHE 




»!<• 

't* 


JUMP 


TO MCORTEX 


• ^ 


VALID CHAFACTE? 


FOR FILE NA^^E 


CHE 


CK 


» .» 



VALir_IN?UT ; 
CMP AL,.ASCII_0 
JP KCT_VALID 
CMP AL,ASCII_9 
J3E IS_VALIL 
AND AL,5FH 
CMP AL,ASCII_A 
J3 NOT_VALID 
CMP AL,ASCII_Z 
J3E IS_VALID 
NOT_VALID; 

MOV AX,e 
IS_VALID: 



• 5 {i 4 cs>: 



• 5)s J,; 
J 'r 5^ 



I ^ 

*x> 

V 



IS THE CHARACTIR 



A NUMB IF 



CONVERT CHARACTER TO UPPER CASE 
IS THE CHARACTIR A LSTTIR 



INDICATE BAD CHARACTER 
CH"EA.C?E? OK 






ABORT 



MESSAGES 



»*« 

"i* "r -T* *’1*' '1'“ 



5 s ;.t 5,x j,i 



^ 



/ 



NO_FILE : 

CALL CLR_SCREEN 

MOV DX.OIFSET NO_FILE_MSG 

JMP MSG OUTPUT 



PTR TO MSG 
PUT MSG 



NO MEMORY ALLOC: 
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?TP. TO h'lSO 



CALL CLR_SCRFZN 

MOV rX.OZFSST NG_MSMORY_MSG 

^SG_OUT?UT : 

MOV CL,?RINT_STRING 
INT CPM_BD03_CaLL 
CALL CLR_SCRZLN 
MOV CL ,SYSTZM_?ESZT 
MOV DL,0 

IMT CPM. Bros CALL 



CP/M PAR AM STIR 
SJN'O CHAR TO CONSOLE 

; CP/M PARAMETER 
RELEASE MEMORY 
EXIT TC CP/M 



SCREEN CONTROL = 



■w’ ^ 



'V 



CLR_SCREEN ; 

MOV CL,CONSOLE_OUT?UT 
MOV PL,CR 
INT CPM_EDOS_CALL 
MOV DI,0CH 
LINE_FEED: 

MOV CL,LF 

MOV CL,CONSCLE_OUTPUT 
INT CP'^_BDOS_CALL 
DEC ri 

JNE LINE_?EED 
RET 



ISSUE CARRIAGE RETURN 
ISSUE 12 LINE FEEDS 

5'C 5jc 
^ 3jS 

5;c 



SEND_MSG; 

MOV CL, PRINT STRING 
INT CPM_BDOS];CALL 
RET 



CP/M PARAMETER 

; PRINT A STRING TO CONSOLE 



NON ABORT MESSAGES 



« %*r V*' / 

k *r / 



MCORTEX_LOAD: 

MOV DX,CEFSET STA:RT_MSG 

CALL SEND_MSG 

RET 



PRCCESSOR_NAME: 

MOV DX, OFFSET P_MAME_MSG 
CALL SEND_MSG 

DPT 



IN_GLOBAL: 

"^OV DX. OFFSET GLOBAL_0_MSG 

CALL SEND_MSG 

RET 



INPUT_ERRCR : 

CALL CLR_SCREEN 

MOV DX, OFFSET EILE_EORM_EPR_MSG 
JMP EXIT ERR 
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NO_I N?UT_FILE ; 

CALL CLR_SCRE2M 

.^OV DX, OFFSET NO_IN_FILF_rS 

?7.IT_ERR: 

CALL SENI)_MSCr 
CALL CLR_SCF.FFN 
JMP HEAD A NAME 



APPENDIX D 



GATE MODULE CODE 

Two files are contained here. The first is PL/I code, 
C-ATEV/AY, which must he %INCLUDE'd with every user process 
reouirinsr access to MCORTEX. The second is AB6 code which 
provides an interface between the GATEWAY and the MCOPTEX 
supervisor. The object code obtained from assembly of this 
file must te linked with all user processes to provide 
"sateway” access to MCORTEX functions. Two lines of code 
are conditionally assembled to produce either GATEMOD or 
GATETEACE. The conditional variable is called GATEMOD. 
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^ ■if. 'if if. if ;;t if :;t if ;!< if j;c if ^ sjt if if jJ: if ;;; if :;c ;fc if ;|; if if if if if if j;; y 

y if >;« >;j if if ;;j if if if Jli if s;i j;« siJ if i: if j;: if j|; if if if j|: :;t ^ ^ 5;i if if j;< ^ ^ 5[« sj: ^ ;;j it if >;t :Jt if if y 

/ifif GATTW.tY FILE GATFWAY.PLI W.R. ROWS 4 MAR 84 

============ =====-== ==============;===^====^^^===^=- = r-:<;:ty 

/ifif section of code is given as a ?LI file to oe 

%IN'CLUDE'd with MCORTFX user orograns. ENTRY 
declarations are -nade for all available MCORTEX 
/ifif functions and for AEF23ITie , a utility function 
allowing unsigned addition of 16 bit numbers. 

! y,c ;',c ;|c 5|c jj: :|c :|c ?Jc :I; j’.c ;|c i.c ;|c 5|; y,: j.'i ^ 

^ ijc :|c 5’^ :|c j',: :;c s); :r;< j;: 5|c ^ jjc 5*,^ sjc ^ ;|s 3(: :;c 5',r ?;c r;: ^ 5*,c j;c 5|c jjc j.'i ;;c :;c j;t ?;c ;;c y 



DECLARE 

advance ENTRY (BIT (3) ) , 

/'•' advance (event_count_id ) ^'/ 

await ENTRY (PIT (8), PIT (16)), 

await ( 8vent_co unt_id , awai ted_value ) ’V 

create_evc ENTRY (PIT (8)), 
create_pvc ( event_coun t_id ) 

create_i)roc ENTRY (PIT (6), PI? (8), 

BIT U6), BIT (16), BIT (16), 

BIT (15) , BI? (16) , BIT (16)) , 

/*■ create_proc ( processor_id , pr ocessor_pr i on ty , =^V 

/'■' s tack_pointer_highest , stack_seg, in ^'/ 

/'<' code_seg, data_seg, extra_seg) '-V 

create_seq ENTRY (BIT (&)), 

/'•' create_sea ( sequence_id ) ''V 

preempt ENTRY (BIT (8)), 

/’•' preempt ( processor_i d ) ’-V 

read ENTRY (BIT (8)) RETURNS (BIT (16)), 
read ( e ven t_c oun t_id ) ^'/ 

/'•' RETURNS cur rent_even t_count */ 

ticket ENTRY (BIT (S)) RETURNS (BIT (16)). 

/* ticket ( seq uence_id ) '•'/ 

/if t^pTURNS unique_ticket_value ^' / 

add2bitl6 ENTRY (BIT(16), BIT(16)) RETURNS (BIT (16)); 
/'•' add2bitl6 ( a_16bit_#, another_16bi t_# ) / 

Z’!' RETURNS a 16bit # + another 16bit ^ -/ 
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V^ ^V %'^ V^ V^%s# %i^ ^V V^ %'* K*^ %*> ^'i» / 

^1% <1^ ^ ^1% ^1% ^1% ^1% ^1% «Y** ^1** ^p -»p ^p ^P / 

GAT5^0r / GATiTRC File G.^TEM/T.aee Rowe 12 Feb ?4 =V 

5^: — — — ni ^ 

'•' This module is siver to the user in ob.i form to linir '•'/ 
’•' with his initial and process modules. Any changes to '•'/ 
'•'' user services available from the OS must be reflected ’^/ 
'^' here. In this way the user neei not be concerned with '•'/ 
actual Gi'TFKFEPER services codes. Two lines of cone ^'/ 
are contained in conditional assembly statements and ’’■V 
control the output to be GATEMCD or GATET-C depending '•'/ 
on the value of GA.TEMOG at the code start. '•'/ 

— — — — — — — — — — — — — — — — — _____ — ___ — — — — — — — — — — ______ _ _ — br ^ 

This module reconciles parameter passing anomalies '^'/ 

''' between I^COHTEX 'written in PL/K) and user urograms '•'/ 
^ ( wri t ten i n PL/I ) . ‘-V 

•/ 

All calls are made to the G«TEKF.I?ER in LEVFL2 of the '••/ 

OS. The address of the GATEKEEPER must be given below. ^•'/ 

■•V ..I.. / 

The ADI)2PIT16 function does not make calls to MCORTEX. '•'/ 
It's purpose is to allow the addition of two unsigned 
16 bit numbers from PL/I orcgrams . '•'/ 

%*.» ■^9 <»V <J* %(« y <V' V' ••*.* «X|. **.» *.'» V<’ »'.» / 

^ >!■» ^ .*p ..p ^ rp 4p ^p «p ^p rp »p <.,«. ^1% «p *(*' / 



ESEG 



GATFI^OD EOU 0 SET TO ZERO FOE GATETPC 

SET TO ONE FOR GATEMOD 



PUBLIC ADVANCE ; THESE DECLARATIONS MAKE THE 

PUBLIC AWAIT GATEKEEPER FUNCTIONS VISIBLE 

PUBLIC C?;EATF_FVC TO EXTERNAL pt-'OCESSES 

PUBLIC CREATE_PROC 

PUBLIC CREATE_SEO 

PUBLIC PREEMPT 

PUBLIC READ 

PUBLIC TICKET 

PUBLIC ADD2BIT16 



AWAIT_IND EOU 0 
adva.nce_ind EOU 1 

CPEATE_EVC_IND ECU 2 
CREATE_SEO_INr EOU 3 
TICKET_IND EOU 4 
READ_IND EOU 5 
CREATE_PROC_I ND EOU 6 
PREEMPT IND EOU 7 



THESE ARE THE IDENTIFICATION 
CODES RECOGNIZED BY THE 
GATEKEEPER IN LEVEL II 0^ 
MCORTEX 



IF GATEMOD 

GATEKEEPEP_IP DW 002AH 
GATEKEEPE?_CS DW 0BEBH 
ELSE 
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; ftttttti 1 < 

;nptiU 2 tifinti < 



"J‘TIfCIEPER_IP DW 3062H 
GATEKEEPE?._CS DW 0B4AE 
1 - N D I F 

GATEKEEPE? ECU DWORD PTR GATEKEEPER I? 



CSEG 



AWAIT 



AWAIT 



AWAIT 






AWAIT 



AWAIT 



AWAIT: 

PUSH ES 
MOV SI,2[DX] 

MOV BX, [3X] 

MOV AL, AV/AIT_IND 
PUSH AX 
MOV AL,[BXl 
PUSH AX 
MOV AX, [SI] 

PUSH AX 
PUSH AX 
PUSH AX 

CALLF GATEKEEPER 

POP ES 

RET 



;SI < — PNT TO COUNT AWAITED 
;BX < — PNT TO NAME OF EVENT 

;N < — AWAIT INDICATOR 

;BYT < — NAME OF EVENT 
;AX < — COUNT AWAITED 
;ivOPDS < — COUNT AWAITED 
;PTR_SEG <-- UNUSED WORD 
;?TR OFFSET <— UNUSED WORD 






ADVANCE 



ADVANCE 



ADVANCE ADVANCE -- 



ADVANCE : 

PUSH ?S 
MOV BX,[BX] 

MOV AL, ADVANCE_IND 
PUSH AX 
MOV AL,[PX] 

PUSH AX 
PUSH AX 
PUSH AX 
PUSH AX 

CALLF GATEKEEPER 

POP ES 

RET 



;BX < — PTR TO NAME OF EVENT 

;N <“ ADVANCE INDICATED 

;BYT <— NAME CF EVENT 
;WOPDS < — UNUSED WORD 
;?TR_SEG <-- UNUSED WORD 
;PTR OFFSET <— UNUSED WORD 



CRFATF EVC 



CREATE EVC 



CREATE EVC 



CRFATE_EVC : 

PUSH ES 
MOV BX, [BX] 

AL, CREATF_FVC_IND 
PUSH AX 
MOV AL,[BX] 

PUSH AX 



PUSH AX 
PUSH AX 



;BX < — PTR TO NAME OF EVENT 

;N <— CREATE_EVC INDICATOR 

;BYT < — NAME OF EVENT 
;WORDS <“ UNUSED WORD 
;PTF. SEG <— UNUSED WORD 



<— UNUSED aCRD 



PUSH n. ;?TR_CFESET 

CALLF GATEEEZPE?. 

POP E3 
PET 



CPE^T? SEO CREATE SEO CREATE SEO 



CREATE_SEQ : 

PUSH ES 
^’OY PX,fBX] 

^OV AL, CREATF_SSC_INB 
PUSH AX 
MOV AL,[EX] 

PUSH AX 
PUSH AX- 
PUSH AX 
PUSH AX 

C-‘LLF C-ATEKFEPEr 
POP ES 

PTf 



;5X < — PTP, TO NAME OF SEQ 

;N < — CFEATE_SEO INDICATER 

;EYT < — NAME OF SEC 
; WORDS < — UNUSED WORD 
;PTR_SES <“ UNUSED WORD 
;PTR OFFSET <--UNUSED WORD 



TICKET 



TICKET TICKET 



'ICKET 



TICKET ’---V 



TICKET: 

PUSH ES 
PUSH ES 
MOV CX,S? 

^CV 3X,[3X] 

MOV AL,TICKFT_IMD 
PUSH AX 
MOV AL,[PX] 

PUSH n 
PUSH AX 
PUSH SS 
PUSH CX 

CALLF CATFKFFPFP; 
POP 3X 
POP ES 
RET 



;ticket number dummy storage 

; POINTER TO TICKET NUiMEEP, 

;3X <— PTR TO TICKET NAME 

;N <— TICKET INDICATER 

;BYT <— TICKET NAME 
; WORDS <' — UNUSED WORD 
;PTP_SEG <-- TICKET NUMBER SFG 
;PTR_OFFSET < — TICKET NUMBER POINTER 

; RETRIEVE TICKET NUMBER 



READ READ 



READ READ READ 



READ 



wi** 

-I' n* •'I' 



/ 



READ : 

PUSH ES 
PUSH ES 
MOV CX,S? 

MOV BX,[BXl 
MOV AL,READ_IND 
PUSH AX 
MOV AL,[3Xl 
^USH AX 
PUSH AX 



; EVENT COUNT DUMMY STORAGE 
; POINTER TO EVENT COUNT 
;BX < — PTR TO EVENT NAME 

;N <-- READ INDICATER 

;BYT <— EVENT NAME 
;BYT <— UNUSED WORD 
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PUSH 3S ;PT?_SEG < — EVENT COUNT SEGMENT 

PUSH CX ;PTR_CFPSET < — EVENT COUNT POINTER 

CALLF GATEKEEPER 

POP BX ;P.ETRIEVE EVENT COUNT 

PC? IS 

R ITT 



CREATE PRCC 



CREATE PROC 



CREATE PROC 



, 1 , j 

^1' ■'»' / 



CPEfiTE_?KOC 
PUSH ES 



MOV SI , 14 [BXl 




;si < — PTR TO 


PROCESS 


ES 


PUSH WORD PTR 


[SI] 


; STACK PFOCFSS 


ES 




MOV SI,12[BX] 




;si PTR TO 


PROCESS 


DS 


PUSH WORD PTR 


[SI] 


;STACK PROCESS 


DS 




MOV SI, 10 [BX] 




;si <— PTR TO 


PROCESS 


CS 


PUSH WORD PTR 


[SI] 


; STACK PROCESS 


CS 




^•OV SI, B[PXl 




:si <— PTE TO 


PROCESS 


IP 


PUSH WORD PTR 


[SI] 


; STACK PROCESS 


I? 




MOV SI, 6[BXl 




;si <— PTR TO 


PROCESS 


SS 


PUSH WORD PTR 


[SI] 


;STACK PPOCESS 


SS 




MOV SI, 4[BX] 




;si <— PTR TO 


PROCESS 


SP 


PUSH WORD PTR 


[SI] 


; STACK PRC CESS 


SP 




MOV SI, 2 [BXl 




:si < — PTR TO 


PROCESS 


PRIORITY 


MOV AH, [SI] 




;CET PROCESS PRIORITY 




MOV SI , [FX] 




;si < — PTR TO 


PROCESS 


ID 


MOV AL,[SIl 




;CET PROCESS ID 




PUSH AX 




;STACK PROCESS 


PRIORIT 


Y AND ID 



^'OV CX,SP 
NiOV AL, CREATE 
^USH AX 
PUSH AX 
RUSH AX 
PUSH SS 
PUSH CX 

CALL? GATEKEEPE- 
ADD SP,14 
POP SS 



POINTER TO DATA 



PROC IND 



IND 



;N — CREATE PROCESS 
;PTT < — UNUSED WORD 
; WORDS <— UNUSED WORD 
;PPOC_PTP SEGA^ENT < — STACK SEC 
;PROC_PTR OFFSET <— DATA POINTER 

;RErOVE STACKED DATA 



r 

. i i. 






PFEEf^PT PEEEr^PT PFEEMPT PREEMPT 



f / 

• / 



PREEMPT : 

PUSH ES 
MOV BX,[BX] 

MOV AL, PP.EEM?T_IND 
PUSH AX 
MOV AL, [BX] 

PUSH AX 
PUSH AX 
PUSH AX 
PUSH AX 



;BX < — PTR TO NAME OF PROCESS 

;N < — PREEMPT INDICATER 

;EYTF, <-- PREEMPT PROCESS NAME 
;WCRDS <-- UNUSED WORD 
;PT?._SEG <— UNUSED WORD 
;PTR OFFSET < — UNUSED WORD 
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CALL? ^TA??K?E?EH 

?0? ?S 

RTT 



ADD23IT16 


ADD2BIT16 --- ADD2EIT16 --- ADD2BIT16 -'V 


ADD2BIT16: 
MOV SI , [EX] 
MOV BX,2[BX] 
MOV BX, [BX] 
ADD BX, [31] 
RET 


;SI <-- PTR TO BIT(16)#1 
;BX <— ?T?. TO BIT( 16)#2 
;BX <— BIT(16)#2 
;BX <" BIT(16)#1 + BIT(ie )#2 


END 
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APPINDIX P 



DEMCMSTPATICN PROGRAM 

The files presented here are a series of procedures that 
can be compiled separately and linked in accordance with 
LINXSn input option files in APPPNDIX ?. The results will 
be demons t ra ti or processes D1 and D2 , or DITRC and C2TRC 
depending on the option files selected. 
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;;r j|: :,’c :|i :|f 5 *,t 5;; :;r ;|c ;|c 5 |r 5 ,‘t >;: :',r 5 ,‘i 5 |c ijc 5 [< J|: :|c :',c :;c :! c 5 |i s.'s j;c :',r 

5 |< ^;c i^T' 'r 5 |i 5;^ 5;; >;j 5 ;i >;r ?:c 5;^ 5;? 5;^ :;; :;c s;< ?;: ;;? 5’.: ;;< j;: 5 ;c ^ >;f :;t 5;'. 

Jiij'.c :;r il' 5 ?c 

DIM IT. PL I code --- 

This code creates the D1 process for execution under 
MCOP-TPX. Osin^ the MCOHTEX loader, the last process 
*••'=<"•• to be loaded "lust contain the initialization proces s . 

y.: ;:;;;; 

Vf ^ ^ i); i'.: ;Jc ^ y?. :Jc y.: j;; : 1 : j;c j;j s;; a;: s'; y; >i: ajc a;; a;: a;: a;: a;; a|i a;: a;: a;: a;c a;; y.c a;; a;« a,'i a.; a'^ ajt a;r a{J aj: a|: 

a;r 3^ J ; af: a;: a|< a[? a;; a|< a^: a*' a;: a;; a;: all a;; a;: a;: a^ a;a a;< a;; ;{« a.'i :{i a;.' a;: af; a;r y.r a|; ajc a;: a(r a|: a;: a;: a;: a^ a;: a;; a(: a,; a;; aj^ a;.- a;; a;i a;; a;r a;i if if if a;; if y.c 



1 a i t : 

PROCEDUPS OPTIONS (MAIN ) RETURNS!); 

%INCLUDE 'gateway. pli ' ; 

begin; 

CALL credte_oroc ('0l'34, 'fd'E4, 

''^Sdb'34, ''^70a'B4, '0e23'34, 

'0439 '34, '070a '34, '070a '34); 

/-CALL creete_uroc (PRCCESS_ID, PROCESS_PR I OR ITY , 

SP SS IP 

/- CS DS ES ); 

CALL await {'fe'B4, '01 '34); 

/’5=CALL await ( EVC , COUNT); -V 

end; 

end; 



-/ 

-/ 

'V 



air aj: a^ at: a^ y.; a^ af: y,; a); a|i a;; a|; a!s a;; y,: a|: a;: a^i a;; a;; a,'e af: a}: a;; a^ a|; a;j a;; a*: a;: a;; a;: a[s a|; a^ aj: a^ a^ a;: a;: y^ a;c a;j a;: a;c a|c a;: a;; a? at: a;: a;; a^ a;: a;c a;t 

5): j|i i\t >;c ?;< y\: ;!< >|c 5|^ jjc :’.c :]c j’,: i|c 5|i 3|c :|c jj; 5'? ijc 5’.; ^ ijc 5]: 5]< 5|? :;i >\x jjt :;j 



DINIT2.PLI code --- 

This code creates the D2 process and the delayer --- 

process for execution under MCORTEX. Using the --- 

a-;*a!t f>ycORTEX 1 Odder the last process loaded ^ust contain 
the initialization process. 

i-.ifif :;c:;:a;i 



❖ ❖ 5r ❖ =;•' ❖ S}"- « ❖ >!: ❖ ❖ s,*: * JJ'- '-t= >? j!: sI? '-'r ❖ a;: a|i aj: a;c ajt a|: y^ a;< a|; a): a;; a;; if if. if if if a;.' a;: a|s 

if if ifi;: if i!: if if a!-- a;< a(: a|; a| : a|4 a,'- if a): a;< if if a{j if if a|s if a|£ a|£ a|£ i: a|£ a;< a;c a.'< if aj; a;j a); a;-. a|£ a;; a*.: if a): if a;; a'.j a;< a|t a|< a;s a|s a| a;: if a;£ a!j a): a|£ a;.' 

i n i t : 



oc 


EDURE 


OPTIONS (MA 


IN) RETURN 


SO; 








%I 


NCLUDE 'gateway. 


pli '; 










begin; 
















CALL 


create_proc 


( '01 '34, 


'ed'34. 














'0929 '34 


, '0713'B4, 


'0029 


'34, 










'0439 '34 


, '0713'E4, 


'0713 


'B4) ; 




/yf 


CALL 


create_proc 


{ PROCESS 


ID, PROCESS 


PRI 




'if/ 


/'if. 






SP 


SS 


"IP 




if/ 


/- 






CS 


DS 


ES 


); 


-/ 




CALL 


create_proc 


( '02'34, 


'fd'34. 









'0a49'34, '0713'34, '01c2'34, 

'0439'34, '0713'34, '0713'B4); 
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CALL await ('fe'24, '01 'F4); 

/*CALL await ( EVC , COUNT); -/ 

end; 

end; 



:|c 3*,: 3): y\i 3lx s|c 3|c 3|< 5|: 3|: xjr 5|: 3|i 3|c :;c 3|< :|c ;|c 3|? 3|< 3lc;l< ;|c 3|: 3;? 3|? Jjc 3|i 3|i 5;? 3^ 3|c 3|: ;|c 3[c ;|c 3|i :’.4 ij? 3|t 5': 3|; 3|: 3;: ;|c v 3jc 3|t ;|c 

3|c 3|i 3|c >;i 3,i s;c 3;: 3;; 5;: 3|: 3|c 3;: 3;: 3;: 3;r 3*,? 3;c 3;: 5|? 3;c 3;: 3lC3;: 3;: 5;: 5|c 3|c 3lc 3|i 3|C 3;c 3;: 3|i 3|i 3): 3jC 3|C 3|« 3;? 3|: 3|< 3;? 3;: 5',C 3|C 3|: 3|C 3|? S',: :;s 5|: 3*^ 3|C 3|C 3‘,J 3;j 3;c 



3'C3|S3‘: 

MCDEMC.pl I code 

❖ This code is the Tain controlling code for the 

demonstration programs D1 and D2 . It is compiled 
separately and linked usins the D1 and D2 input 
option files. 



3|c 3;? 3|? 3*C ;;t 3|r 3;^ 3',: 3',; 3*,r >;r 5|c 5;^ 5;: 3;? 3|c 3;? 3|: 3): 3|? 3;c 5j: 3|t 3j? 3|c 3!c 3|: 5|< 3|: 3;: 3’,: 3|c 3;c 3|: 3|? y\i 3^: 3|? 5|: 3|? 3ic 3jc 3?C 3|: 3^ 3;< 3|t 3|: 3i 3|: 3|: 3|c 3|r 3;: 3;; y\i 

3|C 3;? 3;^ 3|C 3;c 3;; 3;< 3^ 3|: 5|: 3|? 3;^ 3;c 3|i 3J: 3|C 3)C 3;< 3lC 3l< 3;^ 3;^ 3,*t 3;C 3;C 5;^ 3;< 3"^ 3;< 3|< 3^ 3|C >\i Sj: 3): 3;s 3*^ 3|i 3;: 3;c 5;: 3|C 3;? 3|< 3|? 3;c 3|<: 3;c 3;? 5;t 3;c 3;j s;c 3(i 3jc 3;< 3|C 3;c 

mcdemo : 

procedure; 



^INCLUDE 'gateway. pli'; 



DECLARE 

iog_on entry; 

DECLARE 

delay_value EIT(16) STATIC INITIAL ( '000?'' 'E4 ) , 
one BIT(16) STATIC INITIAL ('0001 '24), 
enough BIT(16) STATIC INITIAL ('0064'B4), 

delay EIT(8) STATIC INITIAL ('02'E4), 
sync BIT(8) STATIC INITIAL ('03'34), 
exit BIT(8) STATIC INITIAL ('ff'E4); 

DECLARE 

rtsgl CHA^ iiCTER(21) STATIC INITIAL 
('Delay Event Count is '); 

CALL log_on; 

CALL create_evc (delay); 

CALL create_evc (sync); 

DC VEILE (delay_value < enough); 

PUT EDIT (msgl, delav_value) (SKIP(5), A(21), E4i4)); 
CALL advance (sync); 

CALL await (delay, delay_value ) ; 
delay_value = read (delay); 
delay_value = add2hitl6 ( delay_value , one); 
end; /- DO WHILE -/ 

CALL preempt (exit); 

END mcdemo; 
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spl-* O# s* - V'*' «*' ^ «J^ •»' ■<• %V »'^ »*<« V^ *>*^ V^ *'* ^'■* v »<» vW »'j» V<> %<«* >'- 0» V'* «kV • 

*>,•» *4 * ^ 1 * ■'I* ' 1 ^ 'i' O'* Of*" ^ 1 * ^i' ^T*" 'I' ^»'* ^ 1 ' 'i* O' O' O* O' 'l' O' 'V* O' o' O' o' O' O' O' o' O' t' o' o' ' 

v*^ •»<» \t^ «0 »*j- 

*>,• o» /|* O' ^t' 



*A» »•<» < 



■ O' '*' O' 'r *r O' 



O' O' 

«>« O^ v^ *'* sV V^ •>>* *V *>V s*^ '»*^ 'J' V^ «»V »*' ■»'' ^1-^ ■»*^ v^ V^ «>'•» 

o^ O' *(' 'P O' ^i' 'i' O' O' 'i' O' 'P '’P O' 'p *’p O' O' O' O' 'P O' O' O' O' O' 'i' O' ■'i' ^i' O' ^P ^P O' ^ 



LCa_CM.?LI code 

s:<5:'-;:< This code allows the operater to start all real 
s:<;;j;'c processors executias: in MCDE'^0 at the same time 
'i'’^''^ re, 2 :ardle[ cf the order that they came on lire. 

This is a demonstration only and is not reouired 
'\-^^' under MCOETI^X. 

-n 

V* V^ ^V V< >V *p^ 

^|-* ^p% #1% >|V >1^ ^-% VjW #»|‘% ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p #p ^p >p ^p 

> V 0#» V^ V# o< V^ ^V V^ ^V ^ 

^p ^ ^p >P ^p ^p ^1^ ^p #p #p ^|S ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p ^P ^p ^P ^p ^P >p ^P ^p >1^ >1^ ^p ^p ^p ^p ^p ^p ^p -»P <p /p ^p 

1 og_on : 

procedujve; 



^ O' 5|' 

O' O' O' 

V W 

j'C j'j 5 jc 
5;i?r>r 

^P ^ 3|- 
s*^ 

n' V 



^INCLUDE Va teway . pi i ' ; 



DECLARE 

^o_sirnnal CH.a?. VARYING, 

num_sbc less_l PIT(16) STATIC INITIAL ( '0001 'E4) , 
one 3ITT16) STATIC INITIAL ('0001 '54), 

turn EIT(ie) STATIC INITIAL ('0000'54), 

lo^_ir BIT(9) STATIC INITIAL ('01'B4); 

DECLARE 

ms?l CHARACTER(39) STATIC INITIAL 

( 'KCOI-TEX Demonstration Program "ON LINE"'), 
msg2 CHA.RACTER(;30) STATIC INITIAL 
('Press "m" ’return" to Continue'), 
msg3 CHARACTSR(14) STATIC INITIAL 
('Turn Value is '); 

PUT EDIT (msgl) (SK.IP(12), X(21), A(39)); 

PUT EDIT (") (SKI?(13), A(0)); 

CALL create_evc (loe_in)J 
CALL create_sea (log_in); 
turn = ticket (log_in)» 

PUT EDIT (ms^3, turn) (A(14), 54(4)); 

IF turn = num_sbc_less_l THEN 

do; 

PUT EDIT (msg2) (SKIP, X(25), A(30)); 

GET LIST (go_signal); 
end; /-■' DO -/ 

ELSE 

do; 

turn = add2bitl6 (turn, one); 

PUT EDIT ('ENTER awa i t ( log_in , turn) = await (', I 02 : in, 
', ', turn, ')') (SKIP, A (34), B4:2), A ( 27 , 

54(4), A(D); 

CALL await (log in, turn); 
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end; /- DO -V 
CALL advance (lo^;_ia) 
END icg_on; 





DELAYER. PLI code 




This code provides a time delay to demonstration 
profi:rams D1 and D2 , under the control of D2 . 




prccedu^?e; 

^INCLUDE ',e:a teway . ol i ' ; 

DECLARE 

max_count FIXED STATIC INITIAL (16000), 
iterations FIXED STATIC INITIAL (10), 

'lc,i.j) FIXED. 

start BIT(16) STATIC INITIAL ('0000'34), 
num_processors EIT(16) STATIC INITIAL v'0002'B4), 

delay EIT(£) STATIC INITIAL ('02'B4), 
sync BIT(8) STATIC INITIAL ('03'B4); 

DO K = 1 to max_count; 

DO i = 1 to iterations; 

DC j = 1 to max_count; 
end; /- DO -/ 
end; /’•'= DO 

CALL advance (delay); 

start = addPhitlS (start, nuT_pr oressors ) ; 

PUT EDIT ("sync await is ', start) (s’tcip, A(17), B4(4.)) 
CALL await (sync, start); 
end; /- DO ’'V 
END delayer; 
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.APPENDIX F 



Liaise INPUT OPTION FILES 

This e:roup of files allows linkaise of specified object 
code modules usin^ the LINK86 input abbreviation. As an 
example, after compilation of DINIT. PII, MCDEMO.PLI, and 
LCjON.PLI, and assembly of G.ATFMOD, the demonstration 
program D1 is created envoking "LINK85 Dl[i]". For further 
information on input option files, see [Ref. 13]. 
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>;c i;; s;c 5 ;: j;c ?;: 5js 3 ;: >;? jjc 5 ;: ;;c 3;c ;;c 3 '^ 5 ;^ ?;: J'.C 7'j: ;*,i 3 ;: ;;c :J; 3 ;: 3 ;: 3 ;: :;c 3 ;: 3|c -S 3 ;: 3 ;: 3|i 3;c 3jc 3!? 3jt 3jt 3'.c 3|< 3 ;? 

3;< ^ 3;j y\i 3); 5(< sjc 3|c 3;c >;< y.i 3;? 3|r 3|C s;c 3)i 3;c 3;< 3|C 3|r 3;t 3;c 3;: ;;c 3|i ;;c 3;^ 3;c 3',: 3;? 3^: 3;: 3;j 3;c 3|: 3|i 3;c :;s 3|X 3;« 3|i 3|C 3|; 3;; 3;; 3',C 3;j 3)1 3',C 5lc 3;c 3;i 3li 3;^ 3|C 

!^'COETiX input oution file 

<!' 3,’^ 3|c 5;< 3 ;: 3 ;? 3|c 3;< 3|i 3',c 3|c i\< 3|i 3*^ 3lC 31? 3|C jjc 3l: 3|i 3*^ 3|C 3|< 3;? 31; 3',i 31? ;|C 3',C 3|C 3|t 3;C 3]? 3;; 3): 3j^ 3|C 3|i 3): 3'.C 3;c 3l^ 3|c 3;t 3|c 3;t 3|i 3l^ 3jC 3|t 3jc 3'.: 3li 

5',: 3;c 5;c 3|s 3;: 3|< 3;: 3;< 3|: 3;; 3;< 3|: 3;c 3|c 3;: 3;: 3;< 5;t :;c 3;< 3;: 3;^ 3;: 3;< 3;^ 3;; 3;t 3;: 3;: 3;: 3;: 3;c 3;: 3;: 3;? 3|i 3;: 5;: 3;; 3;: 3;c 3;: 3|c 3;^ 3;: 3;? 3jc 3;t 3 ;: 3 ;; 3|c 3 ;; 3 ;^ 

MCORTiX = TE’X/TRC [cod e [a b [B80] ] ,da ta [e c [P5C j ] ] 



r;5 5 ;s 3 ;; 3 ;; :;j 3 ;; 3;j :;c i); 3;c 3|: 3;t 3;j 3|j 3;i 3 ;: 3;j 3;« 3)4 3? 3 ;; 5 ;; 3 ;; y,: 3 ;; y^ s;; 5 ^ 3 ;; 3;« 3 ;; 3;c 3;s y^ s^: 3 ;; 3 ;: 3 ;: 3 ;; 3 ;; y.t y^ 3 ;; s;; 3|c 3 ;; y,; 3|c 3 ;t 3 ;: y.; s;: 

y- 3}c 3,'r 3 ;: :;< :}; 3|< s;- r}: 3|t 3 ;^ y - 3|; s): 3 |j 3 ;: :{i 3 ;; 3 ;: 3ii 3;c -Jc i[t 3 ;; 3 ;: 3;j sis sis y^ 3|s 3|s 3|s :;s 3^: 3|c 3|s sjs sjs 3|s 3|s 3|s 3|s sjs 3|s ;|s 3|s 3|s 3|s y.s sjs s.'s y.s sjs i\t 3|s 3|s sis sis 

D1 input option file 

;;c ?;c j;c ?;c 5;: :;c ?;s j;c ^ :Jc ;;c 5;: ?;< 5;: 5|C 5|S ^ s;c ?;< j;c >}c ^ 5|i :Jc J Jli ;’,c :;c 5 ;: y: 

5 ;? j;: 5|c 5 ;^ J'.c :;c 5|c :;c 5 ;: 5;c 5 ;? j;c 5 ;? sic ?;c S|c;;: 3|c 3|; 5|C sic s;t s|c s|c s|? s|: s|c 5|c 5|c s|c sjc 5|c s|c s|c s'.c s|c sjc s*^ >;c :|c s|c s|c s|c s|c ;.'c s|c s|c s;c s|c s|c s|c s|c 



31 = 

riNIT [code [ab[543]] 
rCDErO, 

LOGON, 

GATiNiOE 



data [a b [439] ,n[0] ,ad[S2]] , map[all]] , 



:|i 5|c sic s;s 5 |C s|c ;|< 5|c s|c s|c s|c s;: s|c 5|c s|t s'^ s|c sjc s;c 3|c s|c s|c s|x s;? s|< s|c s|c s|: s'^ s): sic s|c s|c 5|: sjc s?: s|c s|c s’^ s|c s|c s|c s|c s|c s|c s'.c s|t s^ s|c sjc s'.c si: s|: 5|< s'^ s|: sj: 5|c 
y,: :|: r|: s|: si: s|: ;|: s|: s|i s|: sj; sj: s|. s|t s|: s|: >|< s|: s|: s|: s)c s|: :,*? s|: :J: s|: s|: sj; s|: s): 5|: s): s): sj: :|: sj: sj: s|: si: s|: 5|: :|: sj: s|: 5|: s|: s|: :|c sf: s|: s|: s|: s|: s|< si: s': >1: 

D2 input option file --- 

3|S 3^: 31: y.s 3|S 3|s i-f sis y.s 3|S 3ls 5,'S sIs sIs sl' s|s ;|s sls s? sIs s|s Sic sjs 3|S sis 3l: sis sis 3is s;s sis sis 3ls sis :<s 3ls 3ls 3IS 3,'S sis ;ls sis SIS 5ls 3ls sis 3l: sis 3? sis sis sic sis 3ls sis y.s sis sis 
?!' '!• >1' u' 5r u' ?!' 'I' 5r 5’.: 5|: ;|: ;I: y,: 5|: 5|: ?|: >1; 5|: ?|: 5l: j): ;|: 5|: ;I: ?I: j|: >|: ;I: ;|: ;|: 5‘,: j|: 5|: :|: :I: jI: :!? :|: ;I: jjt 

32 = 

DINIT2 [code[ab[543l] , data [ab [439] , m [0] , ad [E2] ] , maprall]], 
NC3EN,C, 

LOGON, 

DELAYER , 

GATENOD 



;|c >;< 5lc j|: :|: 5;: 5|c s',: ;;c 2|: j|: 5’,c ^ j|: )|: j): 3|c >|: j|: 5|: 5|c 5|: 5}: 5|: i|: 5|: jJ: 5|c :|: 5|: ^ 5): >|: 5J: j|: >|: a|: 5;: ?|: 5|: 5|: 5;: 

3|: 3|: 5|: ^|: 3|: 3 I? 3|: 3|c 5|: y,: y,: j|c 5|: 5|: 5|: ?;< i|: ?|c 5|< 5|< ?|c ;|t 2|c :|c y,c 5|: :|< ;{c ?I: >|: >|: 5|: >|c j|: ?,*: >1: i|: >|c y.c 5|: i|: 3|: 5|: 5|: 5|: i|: 

--- MXTRACE incut option file 

j|: ;|c iV jIj :|t :|s ;|c ;|c 5lc 5',: :J: ;|: :|: :|c :|: 3;: ?|: ?|c j): :J: j|: ;|: 3;: ;|: j): 3|c 3|: 5;: 3|: z\t 3]: 3|< ;|< ;|: ;|: ;|: 3|: 3j: 3;: 3lc 3^: 3|: 3l: >|: ?I: 



y,: 3|: 3|: 3|: 3|: 3|: >;; 3;< 3|: 3|: 3'.: 3;: 3|: 3|: 5|: 3|: 3|: 3|: 3|c 3): 3|: ;|: 3|: 3|c s): 3|< 3): 3|c 3|: 3|c 3;: 3|: 3|< 3|: 3;: 3'^ z\c 3|: 3|c 3lc 3;: 5;: 3|c 5|: 3|: ;|: 3|t 5|: 5|: 5|: 3|: 5|: 3^: 3jc >1: 3|c 5|c 3|c 

YXTRACE = TEX/TRC [c ode [ab [A90] ] ,dat a [ab [A6C] ] ] 



sv sis 5‘s y.s y,: sis sis si; >;s sic y,s sis y,; 3ls sic sis sjs y,: sis sic sic sjs sis sic sis s;s y.s >;c ;{s sic sis >;c >;s sis >Is s;s s.s y.s sis sis sis sis sic sis s;s sis sis y,s sis y,s sis sis sis 5,'s sic sis s;s s;s sis 
>Is sis sis ;{C sic si; si ■ 3ls sic 3l< sic 3>s 3l; 3lc 3lc si: 3l< sis :}: si: y,s 3lc 3ls Si's 3ls sis 3JS y.S :1c 3{s SliS 3ls 3ls 3ls sis sis sis 3ls 3{S 3ls 3ls 3lc s{s sis sis sic sis sis 3lc sis sis sis sis ^ sis :{s sic sis sis 

DITRC input option file --- 

3V3J: 3|: >|: 3|^3;<3'.C3|:3;:3|:3|: 5|C3;: 3|-' 3|: 3|: 3|: 3|: 3|c 3|: 3}: 3|: 3|< 3j: 5|c 3{: 3|: 3|c 3|< 3|: 3|c 3{: 3|: >1: >J: 5lo|: 3|: 3|: 3|: 3|: 3|: 5|: 3.;: 3|: 3;:3|c3;: 3|c 3j: 3^: 5|i 3|: 3|: 3|: >|i 

3|: 3|: 3|: 3|: 3' 3|: 3|r 3|: 3|. 3|c 3|: 3|: 3|r 3|: 3|: 3|? 3|: 3|f 3|c 3|i 3|: 3|t 3|< 3|: 3|s >*: >|: 3|: 3^ 3|< 3,': 3|: 3|c 3|: 3|: >|: 3|: 3|: :|< 3): 3|: 3|: 3|: 5;< 3|: 3;: 3|< 3|: 3|: 3|: 3|: 3|: ^ 3|: 3|: 3|: 3|: 

DITF.C = 

DINIT [code [ab[54?l ] , data [ab [439] ,m [0] ,ad [82] ] . map[all]], 
NiCLEMO, 

LOGON, 

GATETRC 
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j;v ^ :;: ^ s;« ^ i'f . ;;; jf: ^ ;J; sj! if . :{; :;t v ;;j if ;;j ;|i :;j ^ :|t jj; if 

if ;;; ;;i ;;; i,: if :;: ;;c j|: ;;s if if j); j;; ;|i if ;;; ;;; ;;; if if >;j if if ;|{ if if ii 5;; if if if if if if i: 

D2THC inBut option file 

5;: >;c 5 {i a;? ?;; V 5;' a;; i|c ajc a|c a*t a;i a;: a;c a|i ^ a|i aj: a|i aj? afc a;; ajc a;: a|i a|i a;c a;c a|i a): ^ a|t ajt a^J ali a): a;c a|c i,t al^ a{c aj:a;i a)i a;< a,i ajc a|c a)i a;; a;c 

a); ate a|: a|t a;< a|< a|^ a|: a;: a;: a|: a|< y^c a'.c aj: a;: a|r a|c i: a|i al^ ale a|i aji ;;; aje a;^ a;i a;c a|i aj:.- ate aji a|i a|c ?}: a^^ a|i a;; a;i a;j aj: a|x a;: a;? a;: a|i v ajt a;x a|i a|s a|: a;< a|: a;: 

D 2 T R C — 

DINIT2 [coderab[547n , da ta [ab [439] , m [0] , ad [8211 , rnapfalll], 
MiCTEMO, 

LOGON, 

DELAYER , 

GATETRC 



S2 



APPENEIX G 



LSVEL II — MCOfTEX 30UPCE CODE 

All the LEVEL II source coie written in PL/M is 
contcined in the file LEVEL2.SRC. It is compiled with the 
L.^-RGE attribute. LEVEL II is one of the relocateable code 
modules in file: KORE.LNK. It is part of the executaole 
code module in file: KOHE. KO -:E is the development system 
version of the file KORE.OPS loaded by MCCRTEX.CMD under the 
CP/M-86 operating system. Two memory maps (KOPE.OPS and 
KORS.TRC) located in Appendix H give information on this 
module. The maps come from file: KCRE.MP2 after compiling, 
linkins: and locating the applicable files. KORE(OPS) is 
produced with the code unaltered. KORE(TRC) is obtained by 
removing and adding appropriate comment ma rks from the 
indicated cole before processing. 
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y' :.t i|c sji sii j;j ^ 5;: ^ J".: ^ 5;t 5|t i,’« ^ :{J sj: j;j 5|s ^ i|: sjs ^ s;t ^ ;|t s;; s;; ;;; i|s i|; jJ: i|; j;: X- 5r ir Sr ❖ 5«: / 

! j;« 5;j ;•.; i); i\i ;;c j;: j); :;: i!: >J; 5'^ ;j{ :|t s;; * ^ ^ ^ il: ^ jJ: ^'r it :;{ it 5j; >;s i? s|j :;{ it y,: i' ij; ij: :{J j;? :? y 

/ '.;: 0 0 0 Q if J'.: ;:« :;: it if if J'.: sis if if if s;s s;; s;: };< s;.' 5;s >;c s;s sic si; sis s;; sis if if if if si; s;; sic si; sic s;; si; it if if s;c s;s s|s s? if if if if if if if if y 

/- FILr: LZVEL2.S:iC 

VERSICN': ROVE 6-22-S4 



PROCEDURES 

DEFINED: 



G AT E$ KEEPER 

READ 

ADV ANCE 

TICKET 

OUT $C PAR 

OUT$NUM 

SEMD$CPAR 

RECV$CHAR 

IN$NU.^^ 

IN$FEX 



C?.EATE$?VC 

AWAIT 

PREEMPT 

CREATE$PROC 

OUT$LINE 

OUT^DNUM 

OUTSHEX 

IN$CHAR 

IN$DNUI^ 



REMARKS 



! ! ! CAUTION ! ! ! ! ! ! CAUTION ! ! ! ! ! ! CAUTION ! ! ! 
I? MEW USER SERVICES ARE ADDED TO THIS NODULE 
OR CHANGES ARE MADE TO EXISTING ONES, MAKE 
SURE THE LOCATOR MAP (FILE: K0RE.MP2) IS CHECK- 
ED TO SEE IF THE LOCATION OF 'GATE-KEEPER' H*S 
NOT CHANGED. THE ADSOLUTE ADDRESS OF THIS 
PROCEDURE HAS BEEN SUPPLIED TO THE GATE-MODULE 
IN FILE: GATE. SRC. IF IT HAS CHANGED THE NEW 
ADDiRESS SHOULD EE UPDATED IN FILE: GATE. SRC 

AND RECOMPILED. ALL USER PROCESSES WILL HAVE 
TO EF RELINKED WITH FILE: GATE.OEJ AND 

RFLOCATED. 



LITERAL DECLARATIONS GIVEN AT THE BEGINNING 
OF SEVERAL MODULES ARE LOCAL TO THE ENTIRE 
•:^CDULE. HOWEVER, SOME ARE LISTED TEE SAME 
IN MORE THAN ONE MODULE. THE VALUE AND 
THEREFORE TEE MEANING OF THE LITERAL IS 
COMMUNICATED ACROSS MODULE BOUNDARIES. 
'NOT-FOUND' USED IN LOCATE-EVC AND 
C-EATE5EVC IS AN EXAMPLE. TO CHANGE IT IN 
ONE MODULE AND NOT THE OTHER WOULD KILL 
THE CREATION OF ANY NEW EVENTCOUNTS BY THE 
OS . 



>IV 

y 5r ❖ 5? y; 5lc ;J; j;; # 31; ^ ^ si; 5li ^ 5jc 3{t ^ ^ Jie sie 5,*; 5|; s;; sjc ^ 51: 5}: ;I; il; ^ ^ 3{; >Jc )l; y 

/ '•' 0 0 7 3 ’*■ *■' 'I' 'I' ^ ^ ^ -r ^ 51; 5l; if y 

L2-M0DULE: DO; 



y 51s i' it if 51; 5l; Jj; :1< if if y,; if it ;1; if if if if jJ; jJ; jJ; 5j; if >1: sj; y,; j); >1; if it >1< y; :|; J; y; if: >|; il; y; ;;; il; jJ: sj; il; 3}c sj; y^ y; y 

y ❖ 5 l; if if 5 ls >1; if 5 l< >1; ;1; if :f y; >1; >1; ;1; y,: y.; :1c :1< y« y; y.c si; s;; y; ye y; si: y; sf: s;; y; if if yt yt ys y; y; y; si; y; y; y; y; y; y; y; yc y; yc y; y; y; / 

/'f LOCAL DECLARATIONS -/ 
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DECLARE 



MAXACPU 


LITERALLY 


'10'. 




MAX$V?S$C?U 


LITERALLY 


'10', 




AX$ CPU$ A A ^KA X$ VPS $ CPU 


LITERALLY 


'ICO' 

i •- * 9 




FALSE 


LITERALLY 


'0' , 




HEADY 


LITERALLY 


'1'. 




RUNNIMG 


LITERALLY 


'3', 




WAITING 


LITERALLY 


'7', 




TRUE 


LITERALLY 


'119' , 




NOT$FOUND 


LITERALLY 


'255' , 




PORT SC A 


LITERALLY ' 


00CAH', 




RESET 


LITERALLY 


'0', 




I NT$RETURN 


LITERALLY 


'77K'; 




/ V ^ ^ y ^ '•' *r 'I' '■!' '1' 'I' V 'I-* 'I' 'I' '1“ 'I' -1* 'I' *r 

/- PROCESSOR DATA 3EG^'ENT 


^1% #1% #1% #1% 
TABLE 


%,y 

^1% <1*^ ^1^ ^1* ^4% #1' 


>:v 


/- DECLARED PUBLIC IN 


MODULE 'LISMO 


DULE' 


❖/ 


/- IN 


FILE 'LEVELl 


*/ 


DECLARE ?RDS STRUCTURE 








(CPU$NUNiBFR 


BYTE, 






VP$START 


BYTE, 






VPSEND 


BYTE, 






VPS$PSRSCPU 


BYTE, 






LASTS RUN 


BYTE, 






COUNTER 


WORD) 


external; 




/^01 


»!#<• s'» V 

<'1^ ^ 


' 'T' / 


/- GLOBAL DATA BASE DECLARATIONS 




-/ 


/<' DECLARED PUBLIC IN 


FILE 'GLOBAL 


.SRC ' 




/* IN 


MODULE 'GLOBALSMODULE' 


-/ 


DECLARE VPM( MA XSCPU$ $ $SMA X$ VPS $CPU ) 


STRUCTURE 




(VPSID 


BYTE, 






STATE 


BYTE, 






VP^PRIORITY 


BYTE, 






EVC$THREAD 


BYTE, 






EVC$AW$VALUE 


WORD, 






SP$REG 


WORD, 






SS$REG 


WORD) 


external; 




DECLARE 








EVENTS 


BYTE 


external; 




DECLARE EVC$TBL (10!?) STH 


UCTURE 






(EVCSNAME 


BYTE, 






VALUE 


WORD, 






THREAD 


BYTE) 


external; 





DECLARE 
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SFOailNCERS 



BYTE 



EXTERNAL; 



DECLARE SEO$TABLE (ICC) STRUCTURE 
(SEO$NAME BYTE, 

SEO$VALUE WORD) EXTERNAL; 



DECLARE 

NR$V?S{ MAX$CPU ) BYTE 
NR$RPS BYTE 
HDW$INT$FLaG (MAX^CPU )BYTE 
GLOBALALOCK BYTE 



EXTERNAL, 

EXTERNAL, 

EXTERNAL, 

external; 



/ 






DECLARATION OF EXTERNAL PROCEDURE REFERENCES 
DECLARED PUBLIC IN FILE 'LEVELl.SRC' 

IN MODULE 'LEVELl^MODULE ' 



-'I*" 



5,c y\' ij? 5{s 



■'V 

-V 

’’•V 



YPSCHEDULER: PROCEDURE EXTERNAL; END; 

IN FILE 'SCHED.ASM' 'V 

FET$V? : PROCEDURE BYTE EXTERNAL,* END; 

IOCATEAEVC : PROCEDURE (EVENT$NAME) BYTE EXTERNAL; 

DECLARE EVENT$NAME BYTE: 

end; 



LOCATE$SEO : PROCEDURE (SEO$NAME) BYTE EXTERNAL; 

DECLARE SEO$NAME BYTE; 

end; 



/ »*^ ^ vl<» vV 

V M T Y W ^ '''' *'*'■ ^** 

/- DIAGNOSTIC MESSAGES 



» 

. -»r -'I' 



(WILL EVENTUALLY BE REMOVED) 



jji 






/ 

/ 



MXTRACE 

t^xTR^CE 



i;: >;< :^c 5;c [v^ j «p q p * ,;j ;;; 

❖ f^lXTPACE 



❖ 

❖ 



MXTRACE 

MXTRACE 



5|C 5,v 5 

y^ 



MXTRACE 

MXTRACE 



/* DECLARE 
/- MSG16(-0 
/- MSG17-;-) 
/’^ MSG18('^) 
/- MSG19("0 
/- MSG21(’i') 
/’" MSG23(*) 
/- MSG24(-) 
/^= MSG25 (’■•'') 
/- MSG26(-) 
/- ‘^SG2?(-) 



BYTE INITI AL( 'ENTERING 
BYTE INITIALv 'ISSUING 
BYTE INITI AL( 'ENTERING 
BYTE INITIAL( 'ENTERING 
BYTE INITIAL( 'ENTERING 
BYTE IN IT I AL( 'ENTERING 
BYTE INITIAL( 'ENTERING 
BYTE INITIAL( 'ENTER I.NG 
BYTE INITI AL( 'ENTERING 
BYTE INITIAL(10, 'ENTER 



PREEMPT' ,13 .10 ,'%'). 
INTERRUPT! ! ' , 13 , 10 , '% ' ) , 
AWAIT',10,13, '%') , 
ADVANCE ',10,13, '%') , 
CRSATE$EVC FOR %'), 

READ FOP EVC: $'), 

TICKET', 13, 10, '% ') , 
CREATE$SEO %'), 
CREATE$PROC',10,13, '% ' ) , 
G GATE$KEE?ER N= %') ; 



DECLARE 

/-‘ CH LITERALLY '0DH', 

/* LF LITERALLY '0AH'; 



MXTRACE MXTRACE 



^ 



HATKAUR 






A 1 n r. u 2. 
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MXTRACE MXTRACE r^XTR.ACE y.XTRACE 



/ P 2 1 8 ^ ;;c 5|C 5;c 3;2 :(i >;x s;^ j;i :*« :^c j;c j;c j;c >;c sic ;;c :;c sj: >;c s;c :;< s;c s;c ?;c 3’,C ;;c j;; s;c :;c >;c sjc :;c i;c sj: ;;c 

;;c :;c jjc sjc ^,c 5*,; s;? s;c 5|c >|t sic ?;c j;c >;c 3|c ;|c ?;c 3|c >|c 5|s 3|c j;c i|c s|c >|c 3 ,c s;c ?;c 5|? s;c :|c y,c ;|c >;< 3|C 3|c >;c j;c y,c s|c s|c s;c :;c :|c s|c s;c :;c :|c >|c s;c ;;c 5 |s 5 |: 

GATSiKESPER PROCEDURE ROWE 6-22-34 

/ >1? 'r 3l« nS 3r ^ 51^ 5,C 3|t 5|C Jlc ?;< j)? 5*,C jj? jjc sjs 5|C S{c jjc 5|C 5|c SjC 3|C 3|C ?;c 3;c j|c 3|C 5|C >|C >|c ?|C S|C S|C >|C :|C j;c >|C )|: Sjc SjC 3|C ;|c S|C 3|C y,C s;c 3|C S,*? >|< Sic 



/❖ 

/- 

/- 

/=^ 

/>;. 

/>!! 

/* 

/- 

/* 

/« 

/:’n 

/'’■' 

/# 

/>-. 

/❖ 

/=!' 

/- 



THIS PROC 
SYSTEM DO 
ACCESS PO 
ABLE TO T 
GATE rODU 
IT IS THE 
FROM THE 
FD FOR TH 
DESIRED U 
OPERATING 
TRANSLATI 
INVISIBLE 
PROVIDED 
DIRECT C* 



EDURS IS THE ENTRY INTO THE OPERATING 
Mi IN FROM THE USER DOMAIN. THIS IS THE 
INT TO THE UTILITY/SERVICE ROUTI NES , A VA I L- 
HE USER. THIS PROCEDURE IS CALLED BY THE 
LE WHICH IS LINKED WITH THE USER PROGRAM. 

GATE MODULE WHICH PROVIDES TRANSLATION 
USER DFSIHSD FUNCTION TO TEE FORMAT RECUIR- 
E GATEKEEPER, THE GATEKEEPER CALLS THE 
TILITY/SERVICE PROCEDURE IN LEVEL2 OF THE 
SYSTEM AGAIN PERFORMING THE NECESSARY 
ON FOR A PROPER CALL. THE TRANSLATIONS ARE 
TO THE USER. THE GATEKEEPER ADDRESS IS 
TO THE GATE MODULE TO PE USED FOR THE IN- 
LL. 



THE PARAMETER LIST IS PROVIDED FOR CONVENIENCE AND 
REPRESENTS NO FIXED MEANING, EXCEPT FOR 'N'. 

N FUNCTION CODE PROVIDED BY GATE 

BY? BYTE VARIABLE FOR TRANSLATION 

WORDS WORD 

PTK POINTER VARIABLE FOR TRANSLATION 



/ 0^ A f-j Vf V' **■' »>» « 

/ “r \/^ ^ tl. ^ *V' ^i'* *v* •'I' >|» ^p *p «p ?p #p Jp «p ^p ^p Jp /p «p ^p ^p a 



>.'s5;s / 

•nr ^ / 
l|< 5|c y' 
J|C 3 |? ^ 

-/ 

-/ 

-/ 

-/ 

*/ 

’V 

'^7 

-/ 

C7 

-/ 

❖/ 

>:V 

/ 

/ 



GATE$KEEPER: ?ROCEDURE(N, BYT, WORDS, PTR ) REENTRANT PUBLIC; 



DECLA RE 

(N, BYT) BYTE, 

WORDS WORD, 

PTR pointer; 

I-O SERVICES ARE NOT ACKNOWLEDGED FOR TWO REASONS: -/ 

1. THEY ARE CALLED SO OFTEN THAT DIAGNOSTIC OUTPUT 

/- WOULD BE TOO CLUTTERED. 

2. THEY THEMSELVES PRODUCFS I-O EFFECTS THAT -/ 

/* ACKNOWLEDGE THEY ARE BEING CALLED. -/ 



/=<==^'^' MXTRACE 



j.'cs;; (MXTRACE 



MXTRACE 



^ii;,'^s«5!c MXTRACE 



IF N <■ 8 THEN DO; 

Z’!' CALL OUT$LINE(0MSG27); 

/* CALL OUT$NUM(N); 

/- CALL OUT$CEAR(CR); 

/* CALL OUT$CHAP(LF); 

Z’^' end; 



MXTRACE MXTRACE 

Z*"- MXTRACE MXTRACE 



MXTRACE 

MXTRACE 



MXTRACE --'V 
MXTRACE 



MXTRACE MXTRACE --‘''V 

MXTRACE MXTRACE 
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DC 


) CASE 


N ; 


/XC 


N 


;lc/ 




C iLL 


&WA IT (BYT, WORDS ) 


• / 

; /"' 


0 


xc/ 




CALL 


ADVANCE(BYT); 


/''' 


1 






CALL 


CREATE-^VC( BYT) ; 


/y' 

/''' 


2 


xc/ 




C iLL 


C:-EATE-SEO(BYT); 


/XC 


3 


XC/ 




CALL 


TICKET(BYT,PTR) ; 


/Xc 


4 


XC/ 




CALL 


RSAD(3YT,PTR); 


/Xi 


5 


ou / 

'•V 




CALL 


CREATE-PEOC(PTR) 


; /* 


6 


xc/ 




CALL 


PREEMPT ( BYT ); 


/Xc 


7 


XC/ 


^ ^ X* 


MXTRACE MXTRACE 


«l. »ly 4.W 


MXTRACE 


fi'r-if.-if. 


MXTRACE MXTRACE 


•TT ^ «r* 


MXTRACE 


/x< 


CALL 


OUT-CRAR(BYT) ; 


/xc 


6 


Xc/ 


/X-' 


CALL 


OUT-LINE(PTR) ; 


/xc 


9 


xc/ 


/X. 


CALL 


OUT-NUM(BYT) ; 


/xc 


10 


X:/ 


/=!c 


CALL 


OUT$DNUM( WORDS ) ; 


/xc 


11 


XC/ 


/« 


CALL 


IN-CFAR(PTR); 


/xc 


12 


XC/ 


/XC 


CALL 


IN$NUM(?TR) ; 




13 


XC/ 


/* 


CALL 


IN-DNUM(PTR ); 




14 


XC/ 


^3{c>;c3;: 


MXTRACE MXTRACE 


j[? 3ji 3|£ 


MXTRACE 


/ j.. 

/ '1' 'I' 


MXTRAC 


IE MXTRACE 


%•- %*> 
n' *<' 'C' 


MXTRACE 



emd; ci^SE ’’V 
return; 

end; /- GATE-KEEPER ’V 



5 jc i,C V 

«x> V' *>*'' 
n** ^r* -ir 'n 



MXTRACS 

!^XT?ACE 



MXTRACE / 
j:;^iy.t ;;;:|; ,'^XTRACE 



/ %V ^7 fy V^ 

^1% 4. f /, ^1% ^1% ^1% 4^1% #1^ ^1% 

/^ CREATE$EVC PROCSDUR 



:(£ :;« 5 |s >;t ^s i;; j;e :{c jjc j!« Jj; Jj: 

E 



v* v** V' **•' y* y* / 

^1% J|V^gi rfjN #!•> »j% »|% / 

ROWE 6-22-34 -/ 



/xc XV 

/'-^ CREATES EVENTCOUNT FOR INTER-PROCESS SYNCHRONIZATION. -/ 
/- EVENTCOUNT IS INITIALIZED TO 0 IN THE EVENTCOUNT TABLE. 



3 |c ajc 5 |f 5 |c :|e 5 |s s^c a;< ?;< sjc j;: s;c 5 js 3;: 31 : 3 ;c ?;? ?{< 3 '^ 5 |c 3;? >Js :;5 5 |t :;c 5 ); 3 |: 3{c ^ 3;c j;c j;? 3 ;c ;'gC sjc J'ji 3’^ s ;4 3 j; 3 >: s;c >[5 3 |: 3 |i >;j y/ 

CREATE- EVC: PROCEDURE( NA,1E ) REENTRANT PUBLIC; 



DECLARE NAME 
MXTRACE 
/Xc<<x'= ^<x TRACE 



/x^x<» MXTRACE 
MXTRACE 



byte; 

MXTRACE 

MXTRACE 



MXTRACE 
X:x«x<x^« MXTRACE 



MXTRACE 
xcxtx<«# MXTRACE 



MXTRACE 

MXTRACE 



x<i;iX5i:‘X< MXTRACE 
MXTRACE 



MXTRACE 
xxxsxsx^x« MXTRACE 



/* CALL 0UT$LINE(GMSG21) 
CALL OUT-NUM(NAME) ; 

/* CALL OUT$CHA?(CR) ; 

/- CALL OUT-CHAR (LF); 



3 ^C J'r A' ^ 
/ 

*r- / 



/ 



/ 

/ 



/- ASSERT GLOBAL LOCK -/ 

DC WHILE L0CKSET(0GL0BAL-LCCK,119); END; 



IF /* THE EVENTCOUNT DOES NOT ALREADY EXIST -/ 
LOCATE-EVC (NAME) = NOT-EOUND TEEN DO; 

/- CRE\TE THE EVENTCOUNT ENTRY BY ADDING THE -/ 
/* NEW EVENTCOUNT TO THE END OF THE EVC-TABLE ^' / 
EYC-TBL(EVENTS) .EVC-NAME = NAME; 

EVC-TBL (EVENTS ). VALUE = 0; 

EVC-TPL (EVENTS ) .THREAD = 255; 



S3 



/’^ INCREMENT THE SIZE OF THE EVC$TABLE ’==/ 
EVENTS = EVENTS - i; 
end; /- CREATE TEE EVSNTCOUNT -/ 

/- RELEASE THE CLOBAL LOCK ’'•V 
CLOBALSLOCK = 0; 

return; 

end; CFE.4TE$EVC PROCEDURE -/ 



*^READ PROCEDURE ROWE 6-22-84 -/ 

/>;: «/ 

THIS PROCEDURE ALLOWS USERS TO READ THE PRESENT VALUE «/ 
/'" OF THE SPECIFIED EVEMT^COUNT WITHOUT MftKINO ANY -/ 

CHANGES. ^ POINTER IS PASSED TO PROVIDE A BASE TO A */ 
/- VARIABLE IN THE CALLING ROUTINE FOR PASSING TEE RETURN -/ 
./« VALUE BACK TO THE CALLING ROUTINE. ^7 

3|» «»|<« ..J» «>|« «!<• 3j« fft ^fm ijH yp «p ..p ^p ."p / 



READ: PROCEDURE ( EVC^NAMF, RETS$PTP. ) REENTRANT PUBLIC; 



DECLARE 

EVC$N'AME 

EVCTBL$INDEX 

RETS5PTR 

EVC$VALUE5RET 



BYTE, 

BYTE, 

POINTER , 

BASED RETS$PTR WORD; 



Z’^' SET THE GLOBAL LOCK -/ 

DO WHILE LnCK3ET(0GLOBAL$LOCK.119) ; END; 



/a;.a:-'a:< f^y^RACE MXTRACE 

MXTRACE MXTRACE 

/- CALL 0UT$LINE('3MSG23) ; 
/* CALL OUT$MUM(EVC$NAME) ; 

CALL OUT$CHAR(CR); 

/'•' CALL OUT$CHAR(LF); 

/»;;a.>:a.t MXTRACE MXTRACE 

/5icai!>;s MXTRACE MXTRACE 



MXTRACE MXTRACE 

MXTRACE MXTRACE 



MXTRACE MXTRACE ’!‘*-Z 

MXTRACE MXTRACE 



Z- OBTAIN INDEX *Z 

FVCTEL$INDEX = LOCATE$EVC( EVC$NAME ); 



OBTAIN VALUE 

EVC$VALUE$RET = EVC$TBL( EVCT3L$INDEX ). VALUE; 



Z^^^ UNLOCK GLOBAL LOCK -7 
GLOBAL^LOCK = 0 ; 

return; 

end; READ PROCEDURE *Z * 






3;t: 3|< ajs jjc y,c v 5 {j s;? ?;« ilc ;|c :(c Jlcs^s 3;c 



3|c3;c >Jj5j::^c5{C3;o;c 3;s5t:3j:3{c>;c5;i 3}:?;c^c;;c >J: 5[c 3|c sje >|r ij: s;c sjc 
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/- kflklT PROCEDURE -7 



INTER PROCESS SYNCxRRON I Z ATI ON PRIMITIVE. SUSPENDS -V 

/'^ EXECUTION OF RUNNING PROCESS UNTIL THE SVENTCCUNT EAS ’'V 
/* PEACHED THE SPECIFIED THRESHOLD VALUE, " AW a ITED$V.5LUE . 

/’!= USED BY THE OPERATING SYSTEM FOR THE MANAGEMENT OF ’7 

/* SYSTEM RESOURCES. */ 



^ 3i« :{c St: :{c jJ: jjt 5 ;: x;: X: 5|i nJ * 5r s!e ❖ -.i s!e ❖ Jr Sr 5r ^ >r iiJ 



^ *TT n' ^ ‘S’* -I' n' *TT 



/ 



AWAIT : 



PROCEDURE (EVC$ID,AVAITED$VALUE) REENTRANT PUBLIC; 



DECLARE 

AWAITED$VALUE WORD, 

(EVC^ID, NEED$SCHED, RUNN I NG$ V? , EVC TEL$ I NDEX ) BYTE; 





mxtrace 


si<s|c5js:;cs{e 


MXTRACE 


5 ;: 5}C 


MXTRACE 


^ 


MXTRACE 


>•* / 


/❖S|S5iC 


NX TRACE 


;>^:s|csi«5ls 


MXTRACE 


n' ^ n' -I** ^ 


MXTRACE 


st:s«:s:cs!:s:f 


MXTRACE 


%'« sir / 

‘Trn’* ^ / 


C 


ALL 0UT$LINE(GMSG13) ; 
MXTRACE MXTRACE 




MXTRACE 


>;x :;c 


MXTRACE 


s;s5r« / 




MXTRACE 


s;;5;J5!!5:«{< 


MXTRACE 


^ 


MXTRACE 


sissIistJslts}: 


MXTRACE 


*JU t 

^ n' n** / 



7- LOCK GLOBAL LOCK ’*=/ 

DO WHILE LOCK$SET(GGLOPAL$LOCK, 119); END; 

NEED$SCHED = TRUE; 

/^' DETERMINE THE RUNNING VIRTUAL PROCESSOR -7 
RUNNING$V? = RETSVP; 

/* GET EVC INDEX */ 

EVCTBLAINDEX = LOCATE$EVC (EVC$ID) ; 

DETERMINE IF CURRENT VALUE IS LESS THAN T'-^E 
AWAITED VALUE -7 

IF EVC^TBL(EVCTBL$INDEX) .VALUE < AW A ITED$ VALUE THEN DC; 

/* BLOCK PROCESS */ 

VPM( RUNNING$VP) .EVC$THHEAD=EVC$TBL(EVCTBL$INDEX) .THREAD 
VPM(RUNNING$VP) .EVC$AW$VALUE = AWAITED$VALUE; 

EVCiT3L( EVCT3L$INDEX ) .THREAD = RUNNING$VP; 

disable; 

PRDS .LAST$RUN = RUNNING$VP; 
yPM(RUNNING$VP) .STATE = WAITING; 
end; BLOCK PROCESS «/ 

ELSE DO NOT BLOCK PROCESS -/ 

need$sched = false; 

/- SCHEDULE TEE VIRTUAL PROCESSOR -7 
IF NEED$SCHED = TRUE THEN 

CALL VPSCHEDULER; /* NO RETURN */ 

s:c/ 



UNLOCK GLOBAL LOCK 
GLOBAL$LOCK = 0; 

return; 
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ENT; AWAIT PHOCELUHE -V 



/ ? 4 8 2 * * ^ ^ ^ ^ ■ 



sJtjJj^JSitj:: / 



/’" 

/ 



j!«. 



ADVANCE PROCEDURE 



ROWE 6-22-84 



*/ 
i,/ 

-/ 
INC^^V 
LL */ 

-/ 
irf 

«/ 

*/ 
jfrSrSr »;•' / 



/* 

/- 

/'^ 



/ 



INTER PROCESS SYNCHRONIZATION PRIMITIVE. INDICATES 
SPECIFIED EVENT HAS OCCURRED BY ADVANCING/INCREMENT 
THE ASSOCIATED EVENTCOUNT. EVENT IS BROADCAST TO A 
VIRTUAL PROCESSORS AWAITING THAT EVENT. 



/ 

/- CALLS MADE TO: 



OUT$LINE 
VP SCHEDULER 



(NO RETURN) 



# 

^ ^ 3I|^ 



ADVANCE: PROCEDURS( EVC^ID) REENTRANT PUBLIC; 



D E C L A. R F 

"(EVC$ID, NEED$SCHED, NEED$INTR, SVCTBL$INDEX ) BYTE, 
(SAVE, KUNNINGiVP, I, CPU) BYTE; 



MXTRACE MXTRACE 

MXTRACE MXTRACE 

/* CALL OUT$LINE(0MSG19) ; 
MXTPACE MXTRACE 

MXTRACE MXTRACE 



5p 5|j ;Jc 
>;c j;c3*c 5.S; 



^ ^ 
'r 'I' ^ 



MXTRACE 

MXTRACE 

MXTRACE 

MXTRACE 



MXTRACE 


/ 

"I* 'r *Y* / 


MXTRACE 


Sr ❖ / 


MXTRACE 


<JU / 

•r ^ / 


MXTRACE 


..»<» *>. x'r / 



/’- LOCK THE GLOBAL LOCK ’V 

DO WHILE LOCKSET(0GLOBAL$LOCK ,119) ; END; 



RUNNING$V? = RET$VP; 

EVCTBL$INDEX = LOCATE$EVC ( EV C$I D) ; 

EVC$TBL(EVCTBL$INDEX) .VALUE=EVC$T3L(EVCTBL$INDEX) .VALUE + 1 
NEED$3CHED = FALSE; 

NEED5INTR = FALSE; 

SAVE = 255; 

I = EVC^TBL( EVCTBL$INDEX ). THREAD; 

DO WHILE I <> 255; 

IE VPM(I ) .EVC$A'W$VALUE <= EVC^TBL (EVCTEL$I NDEX ). VALUE 
TEEN DO;/’^ AWAKEN THE PROCESS 
VPM( I ) .STATE = ready; 

VPM( I) .EVC$AW$VALUE = 0; 

CPU = I / MAX$VPS$CPU ; 

IF SAVE = 255 THEN DO; A'THIS FIRST ONE IN LIST-/ 
EVC$TBL(FVCTBL$INDEX) .THREAD=VPM( I ) .EVC$TH?.EAD; 
V?M( I ).EVC$THREAD = 255; 

I = EVC$TBL( EVCTBLiINDEX ). THREAD; 
end; IE FIRST ’V 

ELSE DO;/^^ then THIS NOT FIRST IN LIST -/ 

VPM( SAVE ).EVCiTHREAD = VPM( I ) . EVCSTHRSAD *, 

VPM( I ).EVC$THREAD = 255; 

I = VPM( SAVE ) .evc$thread; 
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end; /- IF NOT FIRST -/ 

IF ( CPU <> PRDS .CPU$NUMBEH ) THEN DO; 
HDW$INT$FLAO( CPU ) = TRUE; 

NEED^INTR = TRUE; 

end; 

ELSE NEED$SCHED = TRUE; 

end; if awaken -/ 

ELSE do;/- do not awaken this process */ 

SAVE = i; 

I = v?M( I ) .evc^teread; 
end;/- if not awaken ’==/ 



end;/- DC WHILE -'/ 

if NEED^INT? = TRUE THEN DO; /"' HARDWARE INTF =«=/ 



/V'*»^ MXTRACE MXTRACE 


<kt^ >L# ■O* 

-'f ^ ^ 


MXTRACE 




MXTRACE 


%V »*<• *^0 / 

0 ^*. / 


MXTRACE MXTRACE 

CALL OUT$LINE( 0MSG17 


); 


MXTRACE 


«>|4 


MXTRACE 


*,*0 *j0 / 

nr* <”r •'r / 


/:<.x^v MXTRACE MXTRACE 


s>:V5f:#5!< 


MXTRACE 


*'0 

0f* 0f* 


MXTRACE 




/^'■^- MXTRACE MXTRACE 

DISABLE,* 


V' 

"1' “Y* ^ "I* 


MXTRACE 


**0 *^0 > 0 
0f*0f*^* 


MXTRACE 


jjc ^ 



OUTPUT (PCRT$C A) = SOH; 

CALL T I N'E ( 1 ) ; 

OUTPUT ( PORT$C A) = RESET,* 

enable; 

end; /"‘ NEEDAINTR -/ 

IF NEEDASCEED = TRUE TEEN DO,* 

disable; 

PRDS .LASTARUN = RUNNING^VP; 
VPM(RUNNING$VP) .STATE = READY; 
CALL VPSCHEDULER; /=" NO RETURN 
end; /- IF NEED$SCHED */ 

/^i' UNLOCK TFE GLOBAL LOCK -/ 
GLOBAL$LOCK = 0; 

return; 

end; /* ADVANCE PROCEDURE 



/❖ 0501 

/'^ PREEMPT PROCEDURE 



»•(» V** *“**■ >**• V' '**■ ^*** 

if* »,■» «>|<* >P «•,« .1-. ^1% *>,» *■,» •>,» 



ROWE 6-22-64: 



/>;: 

/- THIS PROCEDURE AWAKENS A HI PRIORITY PROCESS LEAVING 
/-‘ TEE CURRENT RUNNING PROCESS IN THE READY STATE AND 
CALLS EOR A RESCHEDULING. THE HIGH PRIORITY PROCESS 
SHOULD BLOCK ITSELF WHEN FINISHED. 

/- IF THE VPAID IS 'FS' OR TEE MONITOR PROCESS, IT WILL 
/- MAKE IT READY WHEREVER IT IS IN THE VPM. THE FOLLOW- 
ING CODS POES NOT TAKE ADVANTAGE OF THE FACT THAT 
/’!*' CURRENTLY IT IS THE THIRD ENTRY IN THE VPM FOR EACH 
/- REAL PROCE3SOF. 



=:V 

-/ 

-/ 

-/ 

-/ 

-/ 

-/ 

-/ 

❖/ 

■*/ 





/* CALLS MADE TO: OUTLIN 

y^>^5;S5;i >;:3iC5;t:^C5}:5is 3;c :;?>[? ?;C5|i5j?7j?3;C5|? 5^ nC>{: 5jr 



, VPSCHEDULER 

rlt 5*f 'St 'St St 



*/ 

-/ 



PREEMPT: PROCEDURE ( VPS ID ) REENTRANT PUBLIC,* 
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DECLARE (V?$ID,SEARCH$ST,SEARCH$END,CPU.INDEX) EYT 



MX trace 
MXTHACE 



MXTRACE 

MXTRACE 



MXTHACE MXTHACE 

MXTRACE MXTRACE --'V 



/"' CALL OUT$LIN'E( 0MSC-16 ); 

MXTRACE MXTRACE MXTRACE MXTRACE 

MXTRACE MXTRACE MXTRACE MXTRACE 

IF VP$ID <> C5FEH THEN DO; /- NORMAL PREEMPT ’V 
/- SEARCH VPM FOR INDEX EOR ID -V 
SEAHCR>ST = 0; 

DO CPU = 0 TO (NR$RPS - 1 ) ; 

SEARCH$END = SEARCH5ST NR$VPS( CPU ) - 1 ; 



if.if.-if. / 
5{!5rS!J / 



DO INDEX = SEARCE$ST TO SEARCH^END; 

IF VPM( INDEX ).V?5ID = VP5ID THEN GO TO FOUND,* 
end; /’•' DO INDEX -/ 

SEARCH^ST = SEARCH$ST + MAX$V?S$CPU; 
end; /- DO CPU */ 

/’!' CASE IF NOT FOUND IS NOT ACCOUNTED FOR CURRENTLY -/ 
FOUND: 

LOCK THE GLOBAL LOCK ^' / 

DO WHILE L0CK$SETOGL0BAL^L0CK,119) ; END; 

/❖ 3j;.r preempted VP to ready ^'/ 

VPM( INDEX ). STATE = READY,* 

NEED HARDWARE INTR OR RE-SCHED */ 

IF ( CPU = PHDS .CPU$NUMBER ) THEN DO; 

INDEX = RFT$VP; /- DETERMINE RUNNING PROCESS ''V 



disable; 

PP-DS .LAST$F,UN = INDEX; 

V?M( INDEX ). STATE = READY,* /* SET TO READY -/ 
CALL VPSCHEDULER; /* NO RETURN 



end; 



/ 

/ 



%•- 

“Tr* 

V V 



^ if *f 
i.'.if 



ELSE 

MXTRACE 

MXTRACE 



do;/* cause hardware interrupt 

***** MXTRACE ***** MXTRACE *** 
***** MXTRACE ***** MXTRACE *** 



if/ 

** MXTRACE 
** MXTRACE, 



MXTRACE 



C.^LL OUT$LINE(GMSG17) 



MXTRAC' 



%■- 



MXTRACE ***** MXTRACE 



MXTRACE 



jf, jC 



MXTRACE ***** 



MXTRACE 



^1% ^1^ 



MXTRACE 



HDW<INT$FLAG( CPU ) = TRUE; 

disable; output ( port$ca ) = 80h; 

CALL TIME(l); 

OUTPUT ( PORT$CA ) = RESET; ENABLE; 



if 






/ 

/ 

/ 

/ 



end; /* NORMAL PREEMPT */ 

ELSE do; /* PREEMPT THE MONITOR */ 

/* SEARCH VPM EOR ALL ID'S OF 0FEH */ 
SEARCH^ST = 0; 



DO WHILE L0CKiSET(GGL0BAL$L0CK,119) ; END; 

DO CPU = 0 TO (NR$RPS - 1 ) ,* 

SEARCH$END = SEARCR$ST + NR$VPS( CPU ) - i; 
/* SET ALL INT$FLAGS EXCEPT THIS CPU'S */ 

IF PRDS .CPU$MUMBER <> CPU THEN 
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/ 3^ ^ 
! 5,‘i 

'r '*»* 



HDW$IMT$FLAG( CPU ) 
DO IMDEX = SZARCH$ST TO 
INDFX ).VP5I 
INDEX ).STAT 
-/ 



IE 



VPM( 

V?M( 
end: />!' DO 

SEARCHiST = SEARCH$ST + 
end; /- ALL MONITOR PROOFS 
/* INTERRUPT THE OTHER CPU 
RESCHEDULE THIS ONE 
MXT.RrCE MXTRACE 

MXTRACE MXTRACE 

CALL CUT$LINE(0MSG17) ; 

MXTRACE MITRACE MXTPACE 

MXTRACE MXTRACE 



= true; 
search^end; 

D = VPilD THEN 

E = ready; 

MAX$VPS$CPU; 

S SET TO READY 
'S AND 

❖ / 

MXTRACE 

MXTRACE 



MXTRACE 



n. 

END 



disable; 

OUTPUT ( P0RT$CA 
CALL TIMF(l); 

OUTPUT ( P0RT$CA 

enable; 

INDEX = PETiVP; 

disable; 

PRDS .LAST$RUN = 

VPM( INDEX) .STATE = 

CALL vpscheduler; 
end; Z’!' else 

/- UNLOCK GLOBAL MEMORY -/ 
CLOEAL$LCCK = 0; 

eturn; 

; /- preempt PROCEDURE 



) = s0k; 

) = reset; 



index; 
ready; 

NO RETURN ’^Z 



❖z 



:.c/ 



MXTRACE 

MXTRACE 



MXTRACE 

MXTRACE 




Z 

Z 



/ ^f H 4 y 

'A y j j ^xy ^ ^ ^1% ^p ^p ✓p ^1^ ✓p ^1% ^P ^P ^P rp ^p -^p #p ^p ^p / 

Z« CREATFiSFO PROCEDURE ROWE 6-22-84 ’V 

^ — — — — — — — — — — — — — — — — — — — — ^ ^ 

Z’’*' CREATOR OF INTER PROCESS SEQUENCER PRIMITIVES FOR USE- -V 

Z^^' PROGRAMS. CREATES A SPECIFIED SEQUEMCER AND INITIAL- -Z 
Z’^ IZES IT TO 0, BY ADDING THE SEQUENCER TO THE END OF THF-Z 
/^' SEQUENCER TABLE. -Z 

/i'f. >;</ 

CALLS MADE TO: OUT$LINE OUT$CKAR 

Z^- GUT$HEX -■/ 

^ X? X' ❖ >1^ ^ ^ X« 5j' 5;^ >1' 5|' n' X" >!' >1^51^ Xi >1' X" 5l^ 5j< X' X' X^ X^ X« X' X' X' X' X' Xi X« 5l5 X' X« 5;c X' X' >r X< X^ ?r X' X« X' Xi X' 5r X' >r X' / 

CRFATE$SEQ: PROC EDURE ( NAME ) REENTRANT PUBLIC; 

DECLARE NAME BYTE; 



Z’’" ASSERT GLOBAL LOCK ’'V 

DO WHILE L0CKSET(0GL0BAL$L0CK,119) ; END; 

MXTRACE -'!'-Z 
MXTRACE 



Z--* MXTRACE - 
I’fftc.-iyi MXTRACE 






MXTRACE 

MXTRACE 



^p ^p ^p /p #p 

X^ X* X' X* X' 



MXTRACE 

MXTRACE 



>v 

«JU. %V 

T* "r rr 't" 
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/- C;LL OUT$LIN5(0MSG25) ; 
/- CALL Ob'T$HEX(NAME) ; 

C«.LL OUTSCHAr.(CR) ; 

/- CALL OUT$CHAR(LF) ; 

MXTRACE MXTRACE 

MXTRACE MXTRACE 



SjS 'Jc 5j> 

^ *T' *r nr* 



MXTRACE 

MXTRACE 



MXTRACE 

MXTRACE 



/ 



/ 



IE /- THE SECUENCER DOES NOT ALREADY EXIST, IE ’’•V 
I.0CATE$SE0(NAME) = NOT$?OUND THEN DO; 

/- CREATE THE SEQUENCER ENTRY BY ADDING THE -/ 
/»■- MEW SEOUEMCEP TO THE END OF THE SE0$TA3LE / 
SEO$TAELE(SEOUENCERS ) .SEO$NAME = NAME; 
SEO$TABLE(SEOUENCERS ) .SEO^VALUE = 0; 

/- INCREMENT NUMBER OF SEQUENCERS -/ 
SEQUENCERS = SEQUENCERS + i; 
end; /•'■' CREATE THE SEQUENCER -V 
/’- RELEASE THE GLOBAL LOCK 
CLOBALSLOCK = 0; 

return; 

end; /- Cr.EATFASEO PROCEDURE »V 



/ V* OL# O# «*■' »'<■ / 

/ *<** {/] / 'i' *f* *’C‘ “'f' *»*' *'•’* '4' *>' *»* ''■* ■'«' 'l* '«"* 'l' '*1* 'I* / 



ROWE 6-22-84 



-/ 

/- INTER-VIRTUAL PROCESSOR SEQUENCER PRIMITIVE FOR USER -V 



TICKET PIOCEDURE 

/y, 



PROC^.AM. SIMILAR TO TAKE A NUMBER AND WAIT. RETURNS 
/=!' PRESENT VALUE OF SPECIFIED SEQUENCER AND INCREMENTS THE- 
SEQUENCER. A POINTER IS PASSED TO PROVIDE A BASE TO A ^7 
/- VARIABLE IN THE CALLING ROUTINE FOR PASSING THE RETURN - 

/- VALUE BACK TO THE CALLING ROUTINE. 

/:;« 

/- CALLS MADE TO: OUT$LINE '7 

/ %V V'* >*-« v’? Of V* / 

<»,» »>p. »p .>1^ Sp #1% .>Y» / 



7 

7 



/ 

7 

/ 



TICKET: PROCEDURE( SE0$NAME, RETS$PTR ) REENTRANT PUBLIC; 



DECLARE 

SEC^NAME 

SEQTBL^INDEX 

RETS$PTR 

SSC$VALUE$RET 



BYTE, 

BYTE, 

POINTER, 

BASED RETS$?TR WORD; 



/’- ASSERT GLOBAL LOCK -/ 

DO WHILE LOCKSET(0GLOBAL$LOCK ,119); END; 



/5n«n« 


MXTPftCE 


^ iV 

*V 'i"* -T* 


MXTRACE 


MXTRACE 


Of «JU 

^» *¥• nn 


MXTRACE 


Or Or «lr / 

^ 'r / 


^ j[j 5jJ :{s 


MXTRACE 


Vr 

-I" -I- -r -r 


MXTRACE 


MXTRACE 




MXTRACE 




/-'CALL 0UT$LINE(GMSG24) ; 












MXTRACE 


^ 3{C' 


MXTRACE 


MXTRACE 


O'* -nr •n’* 


MXTRACE 


/ 


^ Jr *r 


MXTRACE 


j;c 


MXTRACE 


MXTRACE 


Or Or 

-1' *1' -r -"i' -r* 


MXTRACE 


Or ^*r %»r / 

-1' '1' / 
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/- OBTAIN SE0$NAME INDEX -'/ 

SEOTBLSINDEX = LOCATE3SEQ( SEOSNA^E ); 

/* OBTAIN SSOUENCEH VALUE -/ 

SEO$VALUE$?.F? = SE05T.ABLE( SEOTBL$INDEX ) .SEOAVALUEJ 

/- INCREMENT SEQUENCER 

SEO$TAPLE( SEOTBL$INDEX ).SEOAVALUE = 

SEC$TaBLE(SECTBLAINDEX) .SEO$VALUE + 1 ; 

/^' UNLOCK THE GLOBAL LOCK -V 
GLOBAL$LOCK = ; 

return; 

end; /■' TICKET PROCEDURE -/ 



^ rs »>**' »•<» V‘ 

0 9 2 r 

f n' 



.u % 



/-• 

/- 

/'•' 

/- 

/- 

/- 

/- 

/* 

/- 



CREATESPROC 



PROCEDURE 



ROWE 6-kiii-34 



A PROCESS 



PARAMETERS 



THIS PROCEDURE CREATES 
SPECIFIED BY THE INPUT 
STRUCTURE IN THE GATE MODULE 
IS A PCINTEF' WHICH POINTS TO 



FOx" THE USER 
CONTAINED I 
THE PARAMETER 
THIS STRUCTURE. 



THIS STRUCTURE IS 



PROCESS 
& 



INFO CONTAINED IN 
PROCESS PRIORITY, THE DESIRED PROC STACK LOC 
AND THE PROCESS CODE STARTING LOCATION WHICH 
IS TWO ELEMENTS: THE IP REGISTER (OFFSET) AMD 
CS REGISTER (CODE SEGMENT). 



AS 
N A 

PASSED 

ID, 
TION , 
IS 
THE 



CALLS MADE TO : 



OUTLINE 



'“f* nr 



■'V fcV '«•# %*.. **» ■*1*^ O.' .. V 

nr n^ n^ *c^ n' n' n* n'* "t* 'i"* 



-5’r/ 

’'V 

>-./ 

❖/ 

-/ 

.-JC/ 

-/ 

^•/ 
— V/ 

-;:/ 



CREATE$?ROC: PROCEDURE ( ?ROC$PTR ) REENTRANT PUBLIC; 



DECLARE 

PROC$PT’- POINTER, 

•PROC$TABLF BASED PROC$PTR STRUCTURE 



(PROCAID 


BYTE , 


PROC APR I 


BYTE, 


PROCASP 


WORD , 


PRCCASS 


'*ORD, 


PROCAIP 


WORD, 


PRCCACS 


WORD, 


PROCADS 


WORD , 


PROC AES 


WORD); 



DECLARE 

(PSl, PS2) WORD, . 

TEMP byte; 

DECLARE PROC$STACK$PTR POINTER AT(0?S1)‘, 

PROCASTACK BASED PROC$STACK$?TR STRUCTURE 
(LENGTH( 0FEH) BYTE, 
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B'ETiTYPE 


WORD, 


BP 


WORD, 


DI 


WORD, 


SI 


WORD, 


DS 


WORD. 


DX 


WORD. 


ex 


WORD, 


AX 


WORD, 


BX 


WORD, 


ES 


WORD , 


IP 


WORD , 


cs 


WORD, 


FL 


WORD) ; 


MXTR^^CE 


MXTRACE 









/ UL« 

MX TRACE ----- MXTRACE 
/- CALL 0UT$LINE(GM3G26) ; 

/-*- MX TRACE ----’’•' MXTRACi 
MXTRACI MXTRACE 

/- TO SET UP ??OC$STACX$PTh 
PSl = PROC$TAPLE.PROC$SP - 118H; 
PS2 = PROCiTABLE. process; 



MXTRACE 


MXTRACE 




MXTRACE 


^'X TRACE 


J*# ^ 


MXTRACE 


MXTRACE 


/ 


MXTRACE 


MXTRACE 


5.t ^ 


«/ 







PPOC$STACK .FETATYPF = INTARETURN; 



PROCSSTACK .BP 
PROCSSTACK .DI 
?H0C$STACE .S I 
PEOCiSTACK .DS 
PROC^STACK.DX 



?R0C<TA3LE.?RCC$SP; 

0 ; 

0; 

pfoc^table.procads; 

0; 



PROC$STACK .CX 
PEOC$STACK .AX 
PROC$STACK .BX 
PROCiSTACK .ES 
PFOC$STACK .IP 
PROCiSTACE.es 
PROC$STACS .FL 



0 ; 

0; 

0; 

?RCC$TABLE .PROCiES; 
PROCiTABLE.P?.OC$I?; 
PROC$TABLE.PROC$CS; 
200H; /-SET IE ELAG 



(ENABLE INTR)-\/ 



/=<= SET GLOBAL LOCK V 

DO WHILE LOCKSET(0GLOBAL$LOCK .119) ; ENL; 



IF PRDS . VPSiPER$CPU < MAXSVPSSCPU THEN DO; 

TEMP = PROS .yPS$PERiCPU + PRES . VP$START ; 
yPM( TFMP ).VPiID = ?R0C$TA3LE.?RCC$IE; 

V?M( TEMP ). STATE = 01,'/- READY «/ 

VPM' TEMP ) .VP$PRI0RITY = PROC i'T ABLE . ?ROC$ PR I ; 
VPM( TEMP ).EVC$THPEAD = 255 ; 

VPM( TEMP ) .EVCiAW$VALUE = 0; 

VPM( TEMP ).S?iREG = PR0C$TA3LE . PROCiSP - lAH,* 
VPM( TEMP ).SS$REG = PROC$TABLE . PROC$SS ; 



PRDS . VPS$PFH$CPU = PRDS .yPS$PER$CPU - i; 
PRDS.VPiEND = ?RDS.VP$END + 1*, 
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MR$'/PS{ PHPS .CPU$MUMBER ) = 

NR$V?S(PHDS .CPU$MUMBEF) - i; 
emd; /- DO -/ 

/- KFLEASF THE GLOBAL LOCK -/ 
GLOBALSLOCK = O; 

return; 

end; /* CREATE^PF.OCESS 



^ %% vV«r ^ ^ 

^ ^ ^ ^ ^ ^ -nr -T" ^ n'* ^ n*^ V -nr -'i' ^r or ^ --r ^r -'r -'i' -- ' >r o- --r - 






INiCHAF 



/''' 

/ *•** 

/'•'■ 

/❖ 

/- 
/- 
/’^ 

/- 

/« 

/.•.- 

/ ^ 

/ «JL> V* »** V* V" 

nr ^ ^-nr O' -r 'r* nr "r o' nr A' nr o 



PROCEDURE 



6-2E-64 -/ 



i’: f 

" ■' / 

5‘r / 

-/ 

>:■'/ 

-/ 
5r / 

-:!V 
♦ / 
"=7 



CHAR IS ! ! ! 



NOT ! 
3 CA 
RAM 



! ! 

S£ . 
MAY 



GETS A CHAR FROM THE SERIAL PORT. 

ECHOED. THAT IS RESPONSIBILITY OF USEI IN THI 
INPUT TO SERIAL PORT VIA SBCS61 DOWN LOAD PROG 
NOT BE ACCEPTED. 

POINTER IS PROVIDED BY USER SO HE CAM BE RETUHNSr THE 
CHARACTER . 



CALLS MADE TO: ?.ECV$CAH: 



V* V* vV **«* '•'^ •*« »'» «'•< V.» 

«i'k O' O' O' ^r 'r ''r •' nr* o' ^r o' o' nr* o' nr o** ^r O' nr o' ^r o' o' o' o' 'r o' nr o' O' 'r *r o' ^ 



MX TRACE 
MX TRACE 
/- IN$CHA" : 



MXTRACE 
MXTRACE 
PROCEDURE ( RET$?TR 



MXTRACE 
MXTRACE 
) REENTRANT 



MXTRACE 

MXTRACE 




public; 



/- DECLARE 

/- RET$PTR POINTER, 

/- INCHR BASED RET^PTR BYTE; 

/* DISABLE; 

/<= INCHR = recv$char; 

/- ENABLE; 



/* return; 

/- end; /* IN$CRAF 
/ijc5:<5;j MXTRACE 
/>:<5;si;; MXTRACE 



MXTRACE 

MXTRACE 



MXTRACE 

MiXTiACE 



MXTRACE 

MXTRACE 



O' ^ -r J 

»v / 
O' O' 'r / 



/- INiNUM 
/« 



sj: j;j 3 ^ ^ 5 *t >;< >;c >>: s;; 3 ;? sj; :{«:{« V > 1 ' A' 

PROCEDURE 



Jjo^c jjs 5|C5|oJ< 



R0V.E 



»'* V' «V / 

»Y» O' ^ O' O' ^r nr o' ^r nr o' ^r / 

6-22-54 -/ 



gets two ascii char from the SERIAL PORT, EXAMINES ■’' / 

/« them to SEE IF THEY AFE IN THE SET 0. E HEX AND FOr{MS '7^ 

A BYTE VALUE. EACH VALID HEX DIGIT IS ECHOED TO THE '■' / 
/- CRT. IMPROPER CHAR ARE IGNORED. NO ALLOWANCES ARE 

MADE FOR WRONG DIGITS. GET IT RIGHT THE FIRST TIME. -/ 

/- IF YOU ARE INDIRECTLY ACCESSING THE SERIAL PORT VIA -/ 
THE SBC861 DOWN LOAD PROGRAM FROM THE MDS SYSTEM / 

/^' INPUT MAY NOT BE ACCEPTED. A POINTER IS PASSED BY THE'-/ 
/- USER SO TEAT EE RETURNED THE CHARACTER. -/ 
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/= 



CALLS MADE TC: IN$HZX 



5?/ 



<*>■» vV* V* »V# «A* O* »•«■ Oj« V' »•'* »’* V' '■*•' »’•' 0» / 

n' '^' T“ ‘^' *’!'• 'T' *’»'• *1' 'T“ n* 'T* o" ■*r 'r o'* O'* *r or* o'* or 'i* or *i'* o'* *t* or* ^ o* or or O'* 'i'* or or o* o' o* 'r ^ o* or o* 'r or or or ■'r or or -r o* o* or **i* / 

MXTRACE MXTRACE MXTRACE rXTRACE 

MXTHACZ MXTRACF MXTRACE MXTRACE / 

/* IN^NUM: PP.CCEEURE ( RET$PTR ) RES.MTRA'^T PUBLIC; 

/« DECLAFE 

/=<= RET??TR POINTER, 

/- NUM BASED RET$PTR BYTE; 

/- disable; 

/- NUM = INiHEX; 

/- enable; 

/^ return; 

/- end; in$num -/ 

MXTRACE MXTRACF MXTRACE MXTRACE ---V 

MXTRACE MXTRACE MXTRACE MXTRACE 



/ V' 4 '~7 A *'* V' V'* ***' V* V" *^' *y *>*^ *>*^ »jl» o** *'^ *** *>*? ' 

/ o* ^ o* o^ *(* o* O'* **i* 'i* ^1* o* 'O' o* *’i' o* o* o'* o* or or 'r or o* ■o* *i* o* o* ^r or or o'* o^ o' ^r o' ^r O'* ^r ^i* ^»* or '»* 'i* ^r 'i* ^r ^r O' o' *'»* 

/ '*■' o** ''* V' '•» •-*•' '*•' '5*' '•" 'y ^y V'' V' '*“* *v 'i''* ''<* V' *y **•' *'f *>v *>y *y ***^ *y *y 'y *y *-'^ 'y » ■» *,•<■ «»y %*> *y «a# 

/ o' or O' *T* or* or or o* ^ or o* o' o* o* ^i* o* o' or •'i' o' o* *’r ^r 'r O' '♦* ^r or 'r 'r or o' ^r o' o* or or 'r ^r or o* o* *’»* o* ^r ^ ■'•' 'i* O' ^ *c *'r O'* o' o' o' o' 

/- OUT^CHAR PROCEDURE ROWE 6-22->34 

/'>f' 

f 

/- SENDS A BYTE TO TEE SERIAL PORT 

/'" 

/<'- CALL MADE TO: SEND5CHAR -/ 

y 

r*j^ #1^ #1% >1^ / 



V 

V 
-/ 

.❖ / 

/ 

:^/ 

-5’r / 
* /. 



MXTRACE MXTRACE MXTRACE =«=-:= ':”:=':^ MXTRACE 

MXTRACE MXTRACE .MXTRACE MXTRACE 

OUT$CHAP: ?F.0CEDURE( CHAR ) REENTRANT PUBLIC; 



5r '!* 



/= 



DECLARE CHAR BYTE; 



/- disable; 

/- CALL SEND^CHAR( CHAf ); 

/- enable; 

/- return; 

/* end; 

MXTRACE MXTRACE MXTRACE MXTRACE 

MXTHA.CE MXTRACE MXTRACE MXTRACE 



^ %i# 

^ -'r 



4 /Ti V' / 

^1^ I l/l r O' / 



/^ OUT^LINE PROCEDURE 
/=;. 



ROWE 6-22-34 



/ 
/ 

/^■^ USING A POINTER TO A BUFFER IT WILL OUTPUT AN ENTIRE -/ 
/^ LINE THRU THE SEiaAL PORT UNTIL ^N '%' IS ENCOUNTERED 
/- OR 80 CHARACTERS IS REACHED— WRI CH EVER IS FIRST. CR 'S*/ 
/* AND LF'S CAN BE INCLUDED. "7 

/❖ ^ / 
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/- CALLS MADE TO: SEND$CHAR 

/ %V ■* v'# Vr »■'* »'* %•- %'« %•» y< ^C» y. %,** y» y<» »•» 

•>' *x^ *x* *c A* O' '■ 4 '* ‘^r* ^ 1 * O' *T* O' ^r* o* o' o' o' o'O' o' o' O' O' O' o' O' o' o' o' o' o' o* o' o' 



/ 



s*^ V# \}^ J 

^1% >1% r 



MXTRiiCE MXTRACE MXTRACE i'’X?RhCE 

MXTRACE MXTRACE MXTRACE ‘^XTRACE "-*/ 

/- 0UT$LIME: PROCEDURE ( LINE$PTF ) F EENTR f»NT PUBLIC; 



/- DECLARE 

LINEAPTR POINTER, 

/- LINE BASED LINE^PTR (80) BYTE, 

/- II byte; 



/'•■' disable; 

/'^ DO II = 0 TO 79 ; 

/- IF LINE( II ) = '%' THEN GO TO 

/- CALL SEND$CHAH( LINE( II ) ); 

end; 

DONE: enable; 

/'" return; 

end; 



/ >!« ^t>,*', X •P a Q r ;!<❖ 

MXTRACE n-x«»:is!5 5r 



MXTRACE MXTRACE 

MXTRACE MXTRACE 



done; 



MXTRACE -':='V 
MiX TRACE 



/ %v 4 4 ^ it V-* V-^ V" / 

/ j I ^A ^,% ^1* ^1% ^1% ^1% #1^ ✓gO. >1% ^1% >1% #1% ^|V #1% #1^ #1^ / 



/« OUTiNUM 
/'' 



PROCEDURE 



ROWE 



6-22-S4 



-V 

/- OUTPUTS A BYTE VALUE NUMBER THRU THE SERIAL PORT -/ 

::-./ 

/’- CALLS MADF TO: 0UT$HEX -/ 

/ y* %*» y» %v y« y%* »•* %f» y- y« y» y,, ^v.» y^ %Vi» y» <,v« y^ y« y« %’» y« y« y^ y« y» y^ y^ <«V y» t 

*^r o^ O' O' O' O' "t' O' ^ V O' *'«' 'I' O' O' ^ o' O' ^.' o' o' o* o' o* o' o^ o' O' O' O' W V o' o' o' o' O' o^ O' o' o' o' o' O' o' o* O' O' o' V 'i' ^ ^ o' o* y 

MXTRACE MXTRACE MXTRACE MXTRACE 

MXTRACE MXTRACE MXTRACE MXTRACE 

/* 0UT$NUM: 'PROCEDURE! NUM ) REENTRANT PUBLIC; 

/- DECLARE NUM BYTE; 

/'‘ disable; 

/'^ CALL 0UT$HEX( NUM ); 

/- enable; 

/* return; 

/- end; 

MXTRACE =!'=5=«-* MXTRACE MXTRACE MXTRACE 

MXTRACE MXTRACE mXTRACE MXTRACE 



O' ^ ^ ^ O' ^*' O' o^ 5{i 5p 5jC 5{t ^ 5|5 Jjc J,C ^ 5^? jji jji ^ 3|? jJj 3(i jjt iji 3p 3,% 2p 3,C 3yC «|c 3j( 3|4 3^C ^ 



/- in$dnum 
/=:< 



PROCEDURE 



ROWE 6-22-34 



/’^ GETS FOUR ASCII FROM SERIAL PORT TO FORM WORD VALUE. 



-/ 

.❖/ 

^•V 
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/- C KITE? I A 4?.E THE SAME AS IN PROCEDUKE IN$NUM -/ 



C.iLLS MAE? TO: IN$HEX 'V 

/ <JL« V'^ »*• %V» V* »*' V' »'* »*« »*» <• * »•» / 

^1% #!«• «<|« ^1% ^|X <|« <,>. •!» ^1% <1^ «p ip i|» *,» <p »P ^p ••p »p ip *p *|» *p ^p «.» ^p <p rfp ^,» «p <p »p ip «ip «p ^p / 



/->:-' M.XTRACE 
MX TRACE 
/- IN$DNUM: 



;:<5;«i::j:is^ MXTRACE 
5rSr5r5rX< MXTRACE *!= Jp 5!^ =5 • 

PRCCEEURE ( RET$PTR 



MXTRACE MXTRACE ---/ 
MXTPACE MXTRACE ’^-*7 
) REENTRANT PUBLIC; 



/’!'■ declare 

/- RET$PTR POINTER, 

/- ENUM BASED RET$PTH WORD. 

/- (H, L) word; 



/- disable; 

/- H = IN^HEX; 

/- H = SHL( H, S ); 

/- L = INSHEX; 

/- DNUM = (H OR L); 

/^ enable; 

/■’' return; 

/- end; 



MXTRACE 

MXTRACE 



MXTRACE 

MXTRACE 



*JU* 

^ «'r 'r 



MXTRACE 

MXTRACE 



s;; j;cs!j MXTRACE 

:;; ;•.: s'.: ;Ji MXTRACE '*' * / 



/ O^ 4 4 Vr V* *p* ' Vi >'•» Vi V^ V» »•» •»!«» Vi »V **i ''■* «*< V* Vi «'< V' V- Vi< »'i *«V / 

i|» ^ ^ ^ ip ip ip ijV ip i^* ip i,v ij . ip ip ip ip ip ip «p rfp ip ip i^% i|« ip i^^ i^'* i|-« ip ip ip ip ip ij» ip ip ip i^« i,H ip i^k ij^ i|« ip i)«. <|X ij-* i^« i^^ ip ip i|« ip / 

/- OUT^DNUM PROCEDURE ROWE 6-22-84 ’V 

>;: 

/- OUTPUTS A WORD VALUE NUMBER VIA THE SERIAL PORT 

/* '*7 

/« CALLS MADE TO: OUT$HEX 'V 

/ Vi V^ Vi V^ Vi Vi **i **i Vi Vi Vi Vi ^*i »V» »*i «^i Vi Vi Vi %*i V^ Vi Vi ^ti »»i ^i »?i Vi V« V' Vi Vi Vi s*i »<i V'^ V^ »*i Vi %*i »*i Vi ^li »*» »‘i »*i V^ Vr Vi Vi Vi %*i / 

i|% ip ip ip ip i,» ip ip ip i|» ip ip i,* ip ij» ip ip ip ip ip ip ij' ip ip ip ip i|^ ij» ip i^v «p ip ip ip ip i^« ip i-p ip ip »p »p ip ij« »p ip i^« ip ip ip ip ip ip i|% 



/❖5?» MXTRACE MXTRACE 

MXTRACE MXTRACE 

/- OUT$DNUM: PROCEDURE! DNUM ) 



MXTRACE MXTRACE 

MXTRACE MXTRACE 

REENTRANT PUBLIC; 






/- DECLARE 

DNUM WORD, 
/* SEND BYTE; 



/- disable; 

/❖ SEND = HIGH! DNUM ); 

/- CALL OUT$EEX! SEND ) 

/- SEND = LOW! DNUM ); 

/« CALL OUT$HEX! SEND ) 

/- enable; 

/- return; 

/* end; 

MXTRACE MXTRACE 

MXTRACE MXTRACE 



4tsit5:jvj;s 

5 p ip ijC ijC ip 



MXTRACE 

MXTRACE 



MXTRACE 
MXTRACE --"V 
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RECVSCHAR PROCEDURE ROVE 6-22-54 

/if. ':■ / 

BOTTOI^ LEVEL PROCEDURE THAT OBTAINS A CHiR FROr THE -/ 

/- SERIAL PORT. PARITY BIT IS REMOVED. CHAR IS IlNOT!! -V 

/- ECHOED. -/ 

/if if/ 

/* CALLS MADE TO: NONE -V 

O* '*■* >*.» V-* '*‘* ^**' ^ / 

^1% *1^ <!•» *(* ^1* *4* ^4^ •» , ' ^1% <»,• <»|» >.• *'f« ^4^ ^-> <J> / 



/5:j:;j5!c f^xTRACE MXTRACE MXTRACE MXTRACE 

/--'■' MXTRACE ----- MXTRACE ---’:■- MXTRACE ----- MXTRACE -^"V 
/'-^ RECViCHAF: PROCEDURE BYTE REENTRANT PUBLIC; 



/'' 



DECLARE 

CHP 



byte; 



/^ 

/if 

/if 

/if 



/*CHECK PORT STATUS BIT 2 FOR RECEI V E-R EADY SIGNAL -V 
DO WHILE (INPUT(0DAH) AND 02H) = 0; END; 

CHF. = (INPUT(eDBH) AND 07FH); 

RETURN CHR; 

/- end; 

/--- MXTRACE MXTRACE MXTRACE MXTRACE *-=:•'/ 

/ififif MXTRACE MXTRACE «---* MXTRACE >^---- MXTRACE 



/if 

/if 

/if. 

/if 

/if 

/if 



^ A ^ %\a ^Ia %. A ^ ^ ^ / 

I J I ^ ^ ^ ^ ^ ^ ^ ^p ^P ^p ^P ^P ^p ^P ^p ^ ^P / 

SEND$CHAR PROCEDURE ROWE 6-22-84 

OUTPUTS A BYTE THRU THE SERIAL PORT. THIS IS NOT A 
SERVICE AVAILABLE THRU THE GATEKEEPER BUT IT IS CALLE: 

BY MANY OF THOSF PROCEDURES. IT WILL STOP SENDING 
(AND EVERYTHING ELSE) IE IT SEES A ''S AT INPUT. ''O 
WILL RELEASE THE PROCEDURE TO CONTINUE. 

THE USSR BEWAREI!!!! THIS IS ONLY A DIAGNOSTIC TOOL 
TO FREEZE THE CRT FOR STUDY. RELEASING IT DOESN'T 
ASSURE NORMAL RESUMPTION OF EXECUTION. (YOU MAY FORC.' 
ALL BOARDS TO IDLE FOR EXAMPLE.) 



/- 

/^ 

/if 

/if 

/if 

/if 

/if. 

/- CALLS MADE TO: 

/ ■^ 5*2 i’f 5*^ <4^ 4* '*■' V' "•*' 4* *•** V* •>f* '4* •»■** < 

'i* *♦ ^1 *% 'i* *%* *'/' "np ^P '*4* »p *f* ''p '^p ""p ^p ^p * 



-if/ 

'^-/ 

:■-/ 

if/ 

-/ 

if/ 

if/ 

-/ 

’^/ 
if / 
.if/ 
if / 
■-if/ 



/ififif MXTRA.CE MXTRACE MXTRACE =!'-=5' MXTRACE 

/--- MXTRACE '--5?'-’:^ MXTRACE ->!=--« MXTRACE ----’«'' MXTRACE -^-/ 
/* SEND$CHAP: PROCEDUHE( CHAR ) REENTRANT PUBLIC; 



/ = 



DECLARE (CFAR,INCRR) BYTE; ' 



/- /’i' CHECK PORT STATUS ’’V 

/« INCRR = (INPUT(0DBH) AND 07FH) ; 
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/- IF INCHR = 13H THEN 

/’’•= ro WHILE (INCHR O IIH); 

/- IF (( INPUT (?D.aK) «ND C2K) <> C) THEN 

INCHR = (IN?UT(0DHH) AND v57FH ) ; 

/- end; 

/- DO WHILE (INPUT(eDAH) AND 01H) = 0; END; 

OUTPUT (0D6H) = CHAR; 

/- return; 



/>!' end; 

MX TRACS 
MXTRACE 



MXTRACE 

MXTP.ACF 



MXTRACE MXTRACE 

MXTRACE MXTRACE 



w 

/ 

'T* 'f* / 



/-I 293-" 



*' 



V n' ' 



%•> •»*» vi# 

^ 



<**^ %•# <*v %*# 



/-' IN^HEX PROCEDURE 



ROWE 6-22-84 



/*' 

/- GETS 2 HEX CHAR FROM THE SERIAL PORT AND IGNCRES ANY- 

/« thing ELSE. EACH VALID HEX DIGIT IS ECHOED TO THE 

SERIAL PORT. A BYTE VALUE IS FORMED FROM THE TWO HEX 
/’!' CHAR. 



f/ 

-/ 

-/ 

''''/ 



/« 

/* CALLS MADE TO: RECV$CRAR 



— — — — — — — — — — — — / 

/ 

❖ / 

i 

y 



/--- MXTRACE 
MXTRACE 
/- IN^HEX: 



MXTRACE 
MXTRACE. 
PROCEDURE BYTE 



^1% #1% ^ 



MXTRACE 
JlwripJl'S.': MXTRACE 'r^*-rlr 

REENTRANT PUBLIC; 



MXTRACE 

.MXTRACE 



/ 






/- DECLARE 

/=«= ASCI I (-0 BYTE DATA ( '0123456789ABCDSF ' ) , 

/* ASCIIH(-) BYTE DATA ( '0123456789' ,61H,62R,63H,64R,65H , 

/- 66H), 

(INCHR, REXNUM, H, L) BYTE, 

FOUND ' BYTE, 

/* STOP byte; 

/-« /❖ (JET HIGH PART OF BYTE 

/- FOUND = 0; 

/- DO WHILF NOT FOUND; 

/❖ /❖ IF invalid char is input, come back HERE ^7 

/- INCHR = recv$char; 

/* H = 0; 

/- STOP = 0; 

/- /- compare char to hex char SET -/ 

DO WHILE NOT STOP; 

IF ( INCHR=ASCII (H ) ) OR (INCHR = ASCIIH(H)) THEN DO; 
/- STOP = 0FFH; 

/* FOUND = offh; 

/- CALL SEND$CHAR( INCHR ); TO ECHO IT -/ 

/- end; 

/* ELSE do; 
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/- H = H + i; 

IF E = 10H THIN STOP = 0FFH; 
inf; /- ELSE 

/’«' end; DO WHILE 'V 

H = SHL( H, 4 ); 

/- end; /- DO WHILE -/ 

/- FOUND = o; 

/❖ /=!^ get low part of RYTE ^'/ 

/* DO WHILE NOT FOUND; 

/* /- again do UNTIL VALID HEX CHAR IS INPUT / 
/« INCHR = recv$char; 



/❖ 

/❖ 

/- 

/- 

/- 

/- 

/- 

/- 

/- 

/- 

/# 

/- 

/- 

/❖ 

/❖ 

/❖ 

/❖ 

Z^" 



L = 0h; 

STOP = 0 ; 

DO WHILE NOT STOP; 

IF { INCHR=ASCII(L ) ) OR ( I NCHR=AS C 1 1 H ( L ) ) THEN 
STOP = 0FFH; 

FOUND = 0FFH; 

CALL SENr$CHAR(INCKR) ; 

end; 



ELSE do; 

L = L + 1 ; 

IF L = 10H THEN STOP = 0FFH: 

end; z* else -Z 
end; z- do while -z 
end; DO while -z 

RETURN (H OP L); 
end; /'^f- IN$HEX 

-- MXTRACE NIXTRACE MXTRACS 

KXTR5CE MXTRACE r^XTRACE *= 



MXTRACE 
MX TP ACE 



do: 




^ O# >* / 

^ #1% ^1% #1^ ^4- 9 

Z- OUT^EEX PROCEDURE ROWE 6-22-S4 ’^V 

/>!. >:=/ 

Z* TRANSLATES BYTE VALUES TO ASCII CHARACTERS AND CUTPUTS-Z 

Z« THEM THRU TEE SERIAL PORT -V 

/'.;< ❖/ 

CALLS MADE TO: SEND$CHA? -V'' 

^ 5ji ^ 5j^ 5|» 5 ^ jp 5jC Jjc sp ?p 3^C Jp j|c 5{C Sji 3p ?P 5ji Jp ?p ip Si'C jjc ip Jp ^ 



nixtRACE MXTRACE MXTRACE MXTRACE ---Z 
/❖:!«? MXTRACE MXTRACE MXTRACE MXTRACE "'*’V 
Z- OUT$HEX: PEOCEDURE(B) REENTRANT PUBLIC; 



Z*=' DECLARE B BYTE; 

Z* DECLARE ASCII (=!') BYTE DATA ( '01234567S9A3CDEF ' ) ; 



Z'" CALL SEND$CHAR(ASCII (SHR(B,4) AND 0FH)); 

Z’- CALL SEND$CHAR(ASCII (B AND 0FK ) ) *, 

z- return; ■ 

Z* END; 



Z"""' MXTRACE 
MXTRACE 



s;o;j5:«5i5j:{ MXTRA.CE 

MXTP ^ CE 5l<5jj3^C3}C 



MXTRACE =:''•>= MXTRACE 
MXTRACE MXTRACE 



hV / 

«P »P »P 

^ / 
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o» «i>^ %v •«*' »V •"■*^ o'^ %*> v^ sV * 

0|% ^ «i|'i ^,% oj'. #^'- 0|» ^ ^ >1^ ^*. <%« «^v 41^ ^,* 4^ ^ <>p ^ ^ ^ , 



^ 'I' 5jS Jji 5jS 5p ^ 



end; /- L2$r"0DULE V 



o# ^V V^ V^ V^ ^V *«i^ v^ v^ 

^p* ^1% ^1T ni^ O* *T^ ^T* ^i"* ^Tn 

y' st^ >;< jj; 5|: 5;: j;i 5(« j;s 5;c >;« 5|t j;? j;s 5;: ?;« 5j< ?;r >;r >;< >jc 5;^ >;< 35c >;< ?;« s;c ?{< 5|c ?;t jjc ?;^ 5;: 

^ 3{: >;: 5j? s;« >;: 5|c ^ sir 3;? jj; jji 3|c ;;c j;< 5|< j|t >|c >5< s;^ sjo;< >|i 3(? ij: ;;< 5|x 3[< 3|< y,c >;? ?;< jji ;{< >;< 3;< 



•J« fc'rf y< v^ »*« V* V ' *>*^ %V V" i 

-T* ■'1'^ #,«. <v '■r nr V ^ n' •'!' ^ nr n^ nr n» / 

3|c >;t >|c i;c 5;< >;< >;< y.c >;: >;< 3;? j;? ?;: 3;^ >;c >;« ;;c >;c >;t ^ 

V n' 5[; 3,C 3jjC 3j( ^ 3ji ijC ;,< ip 3|? ^ >,f sjj 5j? ^ 
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APPENDIX E 



LIIEL I — MCOBTEX SOyPCE CODE 

All the LEVEL I source code written in PL/M is contained 
in the file LEVELl.SRC. It is compiled with the LARGE 
attribute. Two other LEVEL I functions, SCHEDULER and 
INTERRUPT HANDLER, were written in ASM36 and are listed in 
their own modules. LEVEL I is one of the relocateable ''oie. 
nodules in file: KCRE-.LNK. It is part of the executablp 
code module in file: KORE. KORE is the development system 
version of the file KORE. OPS loaded by MCCRTEX.CMD under the 
CP/M-86 operating system. This module contains utility 
procedures used only by the operating system. Two memory 
maps of KORE (.OPS and .TRC) are located at the end of this 
Appendix. The maps come from file: X0RE.MP2 after ccmpilin^, 
linking; and locating the applicable files. KORE(OPS) is 
produced with the code unaltered. KOPE(TRC) is obtained by 
removing and adding appropriate comment marks from the 
indicated code before processing. 
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/ ? C 77 ^ ^ ^ ^ ?;? ;;c 5 |o|r 5 ?: ::t 5;: 5 |c 5 |C 5 |c s;; ?;< >;c :;j :;j >:< 5;? :;c ^ 5 |J 5 ;c s;: 5 ;j :;c :;c ;;c :;c j^c :;: ;n ^ 

^ J|i 5;< jJj 5|C :',i 5|i >|i ?|i 5|i :;s :;t 5*,? :;c ;’,i 5;c ?;< 5*^ 3|i ^): 3|c >|c 5’<c ;J^ ^ 5|^ 5l« '!' ^ sj: :;: ^ 



y 5 |i 5t< s;c 5,v ^ 5;c s;s y,< >;< s;? 5 ;^ >;t 5 '^ y.i 5 ;^ ;;c 5|i 5 ;: :;c j^c 5|4 i.i >;c ;;s j;c j;? ?;< ?;c >;< 5;c 5|< 5;c 5’,i s;c ?;: >;: 3|r >;c ?;c ?;< >;i j;^ >;? >;c i;: ^ 

/- FILE: LEVELl.ShC 



VEHSIOM : 
PEOCEDUFFS 
DEFINED: 



ROWE 6-22-S4 



RET$VP 
GETWCRK 
LOG ATE^SEO 
SAVE$CONTSXT 
MONI?OR$PROC 



RDYTHISVP 

LOCATE^EVC 

IDLF$PROC 

GET5SP 



FiE^'A.HKS : 

WARNING: SEVERAL OF TEE LITERAL DECLARATIONS EELCW 

HAVE A Sir^ILAP MEANING IN OTHER MODULES. THAT MEAN- 
ING IS COMMUNICATED ACROSS MODULES HOUNDARISS. 3E 
CAREFUL WHEN CHANGING THEM. 

❖ / 



Ll$MODULE: DO; 



/ ^' 0 0 29 ^ ^ / 

/ 5 (: 5 [c >;< x< >r >|i 5 t? >;< 3 ?c ^ ❖ 5 jc 5 |c ?!c 5 |i j;< >;c 5;: j;< 5;: ?;< 5 j< >;i >;c ;;c ^ 



/- LOCAL DECLARATIONS 






/ 



DECLARE 



MAX$CPU 


LITERALLY 


'10'. 


MAX$VPSACPU 


LITERALLY 


'10', 


MAX$CPU$5$MAX$VPS$CPU 


LITERALLY 


'100', 


FALSE 


LITERALLY 


'0'. 


READY 


LITERALLY 


' 1 '. 


RUNNING 


LITERALLY 


'3', 


WAIT INC- 


LITERALLY 


'7', 


TRUE 


LITERALLY 


'119', 


NCT$FOUND 


LITERALLY 


'255' , 


PORT$C0 


LITERALLY 


'00C0H', 


P0RTAC2 


LITERALLY 


'00C2H ', 


PCRT$CE 


LITERALLY 


'00CEH ', 


PORT$CA 


LITERALLY 


'00CAH', 


RESET 


LITERALLY 


'0', 


INTARETURN 


LITERALLY 


'77H', 



MCORTEX 

MCORTEX 

IDLEAST ACK$SFG 
IDLE$STACX$APS 



INIT$STACX$SEG 

INIT$STACE^ABS 

mcoRTFX 

MCORTEX 

^ i\i y.t M X T ? A C ^ '■' '"' '’‘ 



MCORTEX 

MCORTEX 



MCORTEX 

'^CORTEX 

MXTRACE 



MCORTEX 
❖ MCORTEX 

LITERALLY '0C8CH', 
LITERALLY '0C800H', 
LITERALLY '0C88H', 
LITERALLY '0C880H'; 
MCORTEX 



MCORTEX 
MCORTEX ---’V 

y >;; ;;i i\< >|{ 5 ^: 5 ^^; y 

MCORTEX ---^y 



MCORTEX 

MXTRACE 



MCORTEX 

MXTRACE 
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MXT?;A.CE MXTRACI 

/- IDLl$STACK$SEG 
/'•' IDLEAST ACF$ABS 
Z’!^ INIT$STACK$SEG 
/- INIT$STACKAABS 
/« rONITOR$STACKiSEG 
/- MONITOR$ST ACK$ABS 

MXTHACE MXTRACE 

mxtraCE MXTRACE 



LITERAL^r‘'0C50R^ 

LITERULY 'eC5(^ZH', 

LITERALLY ''2C56H', 

LITERALLY '0C533H', 

LITERALLY '(^C6GH', 

LITERALLY '0C600H'; 

- MX T R ACE " ’’•= MXTRACE - ’•' Z 

MXTRACE MXTRACE 



/ «. — 

'I* 'l* 'l' <'!*' n' ‘ 

'r o* 'r 'I' 'j' -r* nr J 

/ <**^ »V »•# / 

'i' n* 'i *\ 'r* *' • / 

/ **^ »V •>**' / 

>1^ *'!» r,<» <|'» / 

/ »'• »*> / 
•>!» «»,» / 



/ %0 r\ sf» %'•< %V »V V» »'r »•' >*<' •.'# <.*» «V> ■»’> « 

n'“ rc ^1** n* nr nr nr ^r n* nr n' nr n* ^r n* nr 'r n' n" ^r n* 'r n' 'r ^r n^ ‘ 

SEGMENT TAPLE 

RELEVANT TO THE PARTICULAR PHYSICAL 
WHICH IT IS RESIDENT. 



ASSIGNED TO 





PROCESSOR DATA 


/- 


INFORMATION 


z- 

z* 


PROCESSOR ON 


z« 

/>;« 

/ 


CPUi NUMBER: 


Z- 

z- 


VPSSTART: 


z^ 


VP$END: 


z- 

z* 


VPSAPERiCPU: 


z« 

z- 

Z=<' 


LAST$RUN: 


/- 


COUNTER : 






UNIQUE SEQUENTIAL NUMBER 
THIS REAL PROCESSOR. 

VPM INDEX OB’ THE FIRST VIRTUAL 
PROCESS ASSIGNED TO THIS REAL CPU. 
INDEX IN VPM OF LAST VIRTUAL... 

THE NUMBER OF VP ASSIGNED TO THIS 
REAL CPU. MAX IS 10. 

VPM INDEX OB’ THE PROCESS MOST 
RECENTLY SWITCHED FROM RUNNING TO 
EITHER READY OR WAITING. 

AN ABBITFARY MEASURE OF PEiTOHMANCE 
COUNT MADE WHILE IN IDLE STATE. 



-/ 

5r / 
’ / 

-z 

-z 

-z 

❖z 
'•' / 
*z 

’^'Z 

-z 

-z 

-r'Z 



DECLARE PEDS STRUCTURE 
(CPU$ NUMBER BYTE, 

VP5START BYTE, 

V?$END BYTE, 

VPS$PER$CPU BYTE, 

LAST$RUN BYTE, 

COUNTEE WORD) PUBLIC I NI T I AL ( 0 , 0 , 0 . 0 , 0 , 0 )? 



4 4 »•.. >Jr %•» %•# %•« O* >1' »*• »•.. 0» »*> »i*rf %}^ •*!* ..’y - . « 

^ v I t (/• n' •’r n* 'r n* n’* 'r n" n" 'r n" ^r n" 'i'* 'r 'i* 'i* n** 'r *’i'‘ ^ " 'r ^r n'* 'r "r “'r n' -r ^r ^r *’i** ^ ^r 'i • "r n- ' 

Z’'^ GLOBAL DATA BASE DECLARATIONS 
Z- DECLARED PUBLIC IN FILE 'GLOBAL. SRC' 

Z’- IN MODULE 'GL03AL$M0DULE' 

DECLAFE VPM( M AX$ CPU^ $ ^$ MA X$ VPS $ CPU ) STRUCTURE 



^ / 
■• >!'«. / 

-Z 

❖z 

/ 

'• / 



(VP$ID 
STATE 

VP$PRIORITY 
EVC$ THREAD 
EVC$AWAVALUE WORD, 
SP$REG 
SS$R.EC 



BYTE, 

BYTE, 

BYTE, 

BYTE, 



WORD 

WORD) external; 



DECLARE 

CPU$INIT 



BYTE EXTERNAL, 
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Hr'A^INT$FLAG ( MAX$CPU ) BYTE EXTERNAL, 
NhiV?S( MAX^CPU ) BYTE EXTERN AL, 

NR$R?S BYTE EXTERNAL, 

GLOBAL^LOCK BYTE EXTERNAL? 



DECLARE 

EVENTS BYTE EXTERNAL, 

EVC$TEL(100) STRUCTURE 
(EVC^NAM? BYTE, 

VALUE WORD, 

THREAD BYTE) EXTERNAL? 



DECLARE 

SEOUENCERS BYTE EXTERNAL, 

SEC$ TABLE (100) STRUCTURE 
(SEO^NAME BYTE, 

SEOSVALUE WORD) EXTERNAL; 



/ ^' 0 1 5 9 






t •**/ *** ***'' '*• «/« %•» «•* / 

k «|k ^|- «|k #,• / 



/* DECLARATION OF EXTERNAL PROCEDURE REFERENCES 
/- THE FILE AND MODULE WHERE THEY ARE DEFINED ARE 
/- LISTED. 



-r / 

'•V 



INITIALAPROC: PROCEDURE EXTERNAL; END; 

/- IN FILE: INITKK.SFC -/ 

/- IN MODULE: INIT$MCD 'V 

AWAIT: PROCEDURE (EVC$ ID , AWA ITED^V ALUE ) EXTERNAL? 
DECLARE EVC$ID BYTE, AWAITEDSV ALUE WORD; 

end; 



VPSCHEDULED: PROCEDURE EXTERNAL? END? 
IN FILE: SCHSD.ASM '^/ 



DECLARE INTVEC LABEL EXTERNAL? 

/- IN FILE: 3CHED.ASM 

DECLARE INTR$VECTOR POINTER AT(0110H) I NITI AL ( GI NT VEC ) ? 
/- IN FILE: SCHED.ASM -/ 



/ V'* «• ^ V'' ♦*'* >'<• %c» %v v» y • Vf* •'*«' V'* kV k'» k'f <»’» k> k* 

/ 1 W t' 't* "'i' A* ^p 'p or* ■',* ^ On O' 'i'* ■^p o^ ^p 'P ^p o^ 'i* o* o^ o* o^ *p "'P 'p OP ^p ^ * O'" ^p o' o' ^1* op OP 



/’!= THESE DIAGNOSTIC MESSAGES MAY EVENTUALLY BE REMOVED. 
/- TEE UTILITY PROCEDURES, HOWEVER, ARE ALSO USED BY THE 
/❖ monitor process. THEY SHOULD NOT BE REMOVED. 




V 



(-1XTPACE MXTRACE MXTRACE 

MXTRACE MXTRACE MXTRACE 

/« DECLARE ■ 

/* MSGl(-) BYTE INITIAL ('ENTERING RET$VP ', 

/- MSGIA(-) BYTE INITIAL (' RUNN ING$VP$ INDEX 

A MSG4(’^) BYTE INITIAL ('ENTERING RDYTHISVP' 



MXTRACE 

MXTRACE 

13,10, '%') , 

= %'), 
,13,10,'%'), 
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/- YSG4:A(’") 
/- msg7(-0 
.^SG7A(-) 
MSG73(*M 
/’S' ^^.SG10(’S') 
/- MSGll(-) 
/* MSG12(’S') 
/* I^SG2 0(’!') 
/- MSG22(’S') 
/’" MS G23 (’>'') 
/’S' MSG24(-) 
/- 

/’S'DECLAHE 



BYTE INITIAL 
BYTE INITIAL 
BYTE INITIAL 
BYTE INITIAL 
BYTE INITIAL 
BYTE INITIAL 
BYTE INITIAL 
BYTE INITIAL 
BYTE INITIAL 
BYTE INITIAL 
BYTE INITIAL 



/- CR LITERALLY '0DH', 
L? LITERALLY '0AH'; 



{' SET VP TO READY: VP = %'), 

( 'ENTERING GETWORK ',13 . 10 . ) , 

(' SET V? TO RUNNING: VP = %'), 

( ' SELECTED^DBfi = %' ) , 

('ENTERING IDLE$VP ',13,10,'%'), 
('UPDATE IDLE COUNT ',13,10,'%'), 

( 'ENTERING KERNEL5I NI T ' , 10 , 13 , '%') , 
('ENTERING LOCATEiEVC ',10,13,'%'), 
('ENTERING LOCATE$SEO ',10,13,'%'), 
(' FOUND' ,10,13, '%') , 

{ ' NOT POUND' ,10, 13, '%'); 



/’>• 

/-OUT$CHAR: PROCEDURE( CHAR ) EXTERNAL; 



/’S' DECLARE CHAR BYTE; 
/’S'END; 



/’S' 

/’S'OUT^LINE: PRCCEDURE( LINE$PTH ) EXTERNAL; 
/’S' DECLARE LINE$PTF. POINTER; 

/’S'END ; 

/’!' 

/’S'OUTSNUM; PROCEDURE ( NUM ) EXTERNAL: 

/’S' DECLARE NUM BYTE; 



/’S' end; 

/’S' 

/’S'OUTiDNUM: PROCEDURE ( DNUM ) EXTERNAL; 
/’!' DECLARE DNUM VCRD; 

/’"end; 



/« 

/*OUT$HEX: PRCCEDURE(B) EXTERNAL; 
/’!' DECLARE B BYTE; 

/"'END; 



/’S' 

/’S'IN$CHAE: PROCEDURE ( RETSPTH ) EXTERNAL; 
/’S' DECLARE RET$?TR POINTER.* 

/*end; 

/'•' 

/’'■'IN$BNUM: PROCEDURE (RET$PTR) EXTERNAL; 

/’S' DECLARE RETSPTR POINTER; 

/’"end; 

I 

/ -r 



/’S'INSNUM: PROCEDURE (RET$PTR) EXTERNAL; 
/"' DECLARE RET$PTR POINTER; 

/’S'END; 

/’"’S'’!'’:' MXTRACE MXTRACE mXTRACE 



(MXTRACE / 



/ = 



MXTRACE 



MXTRACE 



’S'’S' MXTRACE ’"’"’S'’!' MXTRACE 



/’S'0273’""'’!'’ 



s'* s'* sX* 'J* s'^ si* si. V* ''** s'* s'* s'* > * V* S*' s'* s'* ■''* V* / 

*p *p *(S *Y» *1^* *|S *|S *,S*|« *|S *fS *,S *jS *|S ^S rjS ^,S *|S *jS ^|S *|S *,S ^S rjs *|S *>|S *|S *p ^i|S *|S *,s *j» ^s ^s / 



/’" STACK DATA & I NI TI ALI AZTI ON FOR SYSTEM PROCESSES 



7 
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RE lELE^STACK 


STRUCTURE 


(LENCTF( 030H) 


WORD, 


RET^TYPE 


WORD , 


BP 


WORD, 


DI 


WORD, 


SI 


WORD, 


DS 


WORD, 


DX 


WORD, 


CX 


WORD, 


ax 


WORD , 


EX 


WORD, 


ES 


WORD, 


START 


POINTER, 


FL 


WORD) a 



/- IP.CS 



INITI/'K 

0,0,e,0,e ,0,0, 0,0. 0,0,0 ,0,0. 0,0 ,0,0 .0,0 ,0,0 ,0,0, 

0 . 0 . 0 . 0 , 0 , 0 , 0 , 0 , 0 . 0 . 0 . 0 . 0 . 0 , 0 , 0 .?. 0 . 0 . 0 , 0 . 0 , 0 , 0 , 

INTSRETURN ,7A^,0,0,0,0,0,0 ,0 ,0 ,0IDLE$P?.OC,200H ) 



DECLARE INIT$STACK STRUCTURE 





(LENGTH( 030H) 


WORD, 




RFT$TYPE 


WORD, 




BP 


WORD, 




DI 


WORD, 




SI 


WORD, 




DS 


WORD, 




DX 


WORD, 




CX 


WORD, 




AX 


WORD, 




BX 


WORD, 




ES 


WORD, 




START 


POINTER. /- IP.CS ’!=/ 




FL 


WORD) AT(INIT$STaCK$ABS) 




INITIAL! 




0 


.0.0, 0,0, 0,0, 0,0. 


0,0,0,0,0,0,0,0,0,0,0,0,0,e 


Cf 

• ✓ 


.0,0, 0.0, 0,0, 0,0, 


0,0, 0,0, 0.0, 0,0, 0,0. 0.0, 0.0 


INT$RETURN,7AH,0,0 


,0,0,0,0,0,0,0INITIAL$PROC, 






/- 200R SETS THE IF FLAG * 


/5;« X T r. a C E 


MXTP.aci MXTRACE 


ss;j f^xTRACE 


MXTRACE MXTRACE ---- 


/- 


DECLa.RE MO\’ITOR$ST ACR STRUCTURE 


/- 


(LENOTH(030H) 


WORD , 


/« 


RET$TY?E 


WORD, 


/- 


BP 


WORD, 


/- 


DI 


WORD, 


/’•' 


SI 


WORD, • 




DS 


WORD, 


/« 


DX 


WORD. 




CX 


WORD , 



0 



MXTRAC: 
MX TRACE 



3,X ^ sj; 5jC ^ 

'I'* / 
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/- 


AX 


WORD. 


/SIC 


3X 


WORD, 


/sic 


■?C 

w 


WORD, 


/- 


START 


POINTER, /- I?,CS -V 


/- 


EL 


WORD) AT{MCNITORSSTAC.<SABS ) 



/- INITIAU 

/« ,0,?,2,e,0.0.0,0,0,0,0.0 ,0,2,0, 

/- 0,0,0,0,0,0,0,0,0,0.0,0,0,0,?,P, 0,0,0, 0.0, 0,2,0, 

/- I NT $ RFTUR M ^ A ^ , 0 , 0 , 0 , 0 , 0 , , 3 , 0 , G MO N I TO r s ??.0C , 200 H 
MXT7.ACE MXTHACE ----- MXTRACE ---- MX TRAC I 



[^XT^ACE ---- MXTR'^CE MXTrACE MXTRACE 



) * 



/ - 0 3 5 4 - - — - - ^ / 

y :;s >}:>;« sjt a;; s;; >;{ ;;; 51c ij: If Vf 5;4 i;« sic ❖ Sr 5?^ >'.• 5n ^ 5.': ^ >:« ?r a!c sic sic :?< ale tf j-' ❖ '’i^ ^ i'.- / 



/- HIT$y? PROCEDURE ROV/E 5-22-G4 '-y' 

/ale a;./ 

USED BY THE SCEEDULEP TO FIND CUT WHAT IS THE CURRENT -/ 
/- RUNNING PROCESS. IT'S INDEX IN VPM IS RETURNED. 

/alc V/ 

/- CALLS MADE TO: OUT$HEX OUTiCHAR -V 



/ ?:? Sr ❖ ❖ :4i J? Sr >:< a? >r s;^ s;j ap a;< sjc a;; a;s a,s a{c a;j ajs ;;< a? a? a,t a;j :p al; aje a;j a;: al« al< a;: a;; a;c a}: aje a;i a;s ale af: a|t a;; a;c aje y.c a;c aje a|j al< a-^ ajc a;: a;s a;; y 

RETS VP: PROCEDURE BYTE REENTRANT PUBLIC; 



DECLARE RUNNING$VPSINDEX BYTE; 



/alcalcalcalc VXTRACE 


alcalcalcajc ,-^XTRACE 


wXr 

-1' T* 


MXTRACE 




MXTRACE 


a,; aje ale a? / 


/a.'calcajcalc VXTRACE 


ale aid- MXTRACE 




MXTRACE 


>;c i;: 3 ;: 


MXTRACE 


ale ale ale a,e / 


/- CALL OUT$IIKE(Gf^SGl ) ; 












/ale ale ale ale VXTRACE 


MXTRACE 


a.': al; ale ale al; 


MXTRACE 


i'.t 3)^ 


MXTRACE 


sic six :I: alt / 


/alcalcaicalc MXT?<iCE 


alcalca-calc MXTRACE 


SrSrSlcaldc 


MXTRACE 


i;c 3 ;^ 3 ;: 


MXTRiCL 


ale ale ale ale / 


/- SEARCH 


THE V? MAP FOR RUNNING PROC 


ESS 


INDEX -V 




DO RUNNI NG$VP$I.NDEX = 


PRDS . 


VPSST A RT 


TO ? 


RDS .V?SE 


M Pi • 
AJ 1 


IF ypM( 


RUNNINGS VPS INDEX ) 


.STATE = 


RUNNING 




THEN GC 


TO found; 












end; /- DO 


sic/ 












RUNNINGS VP 


SINDEX = PRDS. 


LASTS 


fun; 








FOUND: 

/altalcalcal: f.« XT? ACE 


a{ca<cy^alc VIXTRACE 


a;calc:t;ajcaij 


MXTRACE 


;{e;’^a|eaie 


MXTRACE 


alealealxale / 


/-a--* MX TRACE 


slcadlcalc VXTRACE 


ale ale alcalc aje 


MXTRACE 


aleajealeale 


MXTRACE 


al; ale a;; ale / 


/- CALL CUTSLINE(GM.SGIA) ; 












/- CALL OUTSH 


EX (RUNNINGS VPSINDEX ) ,* 








CALL OUTSCHAH (CR ) ; 
/* CALI OUTSCHAR( LF) ; 












/alcalcalcalc V|XTRACE 


alcadcslc MXTRACE 


si: sic ale al: ale 


MXTRACE 


5{e sic ale ale 


MXTRAC ^ 


s-cslealeale y 


/a;caic:(calc VXTRACE 


---- MXTRACE 


ale ale ale ait ale 


MXTRACE 


sp sic si; ale 


MXTRACE 


alea}:al:a;: / 



RETURN PUNNINGSVPSINDEX; 
end; /* RETSV? PRCCEDURE '-V 
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/ «*« /Tl A A ^ V" *** V" **^ *** V^ •.‘^y^ <y» v*'* *’* »v v^ »*» ••’* y* »V %«.» »•< %•# *'* y«<«v V'* v' » * %■«» »• » J 

^w ^ ^ ^ l/i ^ O' 'f* ^f* O' ^i' ^ ^,' O' O' O' O' O' O' 'i' O' ^ O' O' O' O' O' O' O' O' O' '<' O' O' 'I* O' *1* O' O' "t* O' '»' O' O' 't' O' O' ^i' O' O' '»' O' O' 0 *“ '*' / 

/- RDYTHISVP PROCEDURE ROVE 6-22-64 -/ 

/^- >;=/ 

/* CHANGES A VIRTUAL PROCESSOR STATE TO READY -/ 

/j;< i.'jy' 

/- CALLS I^ADE TO: OUT^HEX OUT$CHAR ^/ 

/ %t^ sV VU WU <JL* *J^ %V ^ ^ / 

#P i0f\ Ap ^|*» >1^ ^j% ^p ^p ^p ^p ^p ^N pp>p ^p ^p ^p ^p ?p* #p ^p ^p ^p ^p ^p y^ 



RDYTHISVP: PROCEDURE REENTRANT PUPLIC; 

MXTRACE MXTRACE MXTRACE MXTRACE 

MXTRACE MXTRACE MXTRACE MXTRACE ^'=5'^'=?/ 

7=^'' CALL 0UT$LINE(0MSG4); 

MXTFACE MXTRACE =!=''"•’-=!« MXTRACE ’'‘'‘’i'"' MXT-ACE 

MXTRACE MXTRACE MXTRACE MXTRACE 

PRDS .LAST$RUN = RETAVP; /- SAVE THIS PROCESSOR INDEX -V 



/ '■ 

/'< 

/*!' C 

/* c 
/* c 
/* c 

^ 3 ji 3 {j 

/;;<i:cx« 

V 

p. 

end; 



= - MXTRACE MXTRACE MXTRACE MXTRACE 

MXTRACE MXTRACE MXTRACE MXTRACE 

ALL OUT$LINE(0MSG4A) ; 

ALL OUT$HEX(PRDS.LAST$RUN); 

ALL OUT^CHAR(CK) ; 

ALL OUT$CHAR (LF) ; 

* MXTRACE MXTRACE MXTRACE 

* MXTRACE MXTRACE 

?M( PRDS . LAST ^RUN) .STATE = READY; 

eturn; 

/- RDYTHISVP PROCEDURE -V 



;}t :;s if if Vj )( T* p Ji p ^ Jj; Jj; :;: * / 

MXTRACE MXTRACE 



/ y«» o( A A A 'V '^«' y^ y^ y* 'V yr yy v* y^ y^ 'y ^ » y^ y* y^ y^ y* y^ y< y^ y^ y^ y^ y^ y^ y^ y^ » y< / 

o' f/' j O' O' o' O' O' O' O' O' O' O' O' O' ^ O' O' O' ^r* o' *f* o' O' o' '•' '♦' ^i' o' o' o' '»' o' ^»' or o' ^r* o' o' o' o' '’i' o' O' o' o' o' o' o' o' '»' o' / 



/- SAVECONTEXT PROCEDURE 
/« 



ROVE 2 APR 84 -/ 

;;«/ 

-V 

-'V 

-/ 



/■^ SAVES CURRENT STACK POINTER AND SEGMENT IN VPM 

/>;c 

/* CALLS MADE TO: EFT$VP 

/ y^ y^ y^ y^ y^ y* y< y* y< y^ y<» y^ y> y.* y^ »** y< y^ y^ y. y< .«v# y.. yi. y^ y< y.. *v *V '*' '*■* y^ »*«• »V '*^ y^ '!■* »*“• y^ y^ / 

O' ^t' ^ 1 ' O' O' O' O' o' '*' O' O' '«' O' O' O' '■|' O' "t' '•' O' O' O' o' O' '»' 'i' O' O' ^.' "i' O' O' 'i' O' O' o' O' O' "t' * ' O' o' O' O' O' O' O^ O** *’/' O' o' O' O' O' 'i' O' / 

SAVECONTEXT: PROCEDURE (STACK$PTR, STACK$SEG) REENTRANT 

PUBLIC; 



DECLARE (STACKiPTR, STACK$SEG) WORD; 



IF PRDS .LAST$RUN <> 255 THEN DO; /- IF ENTRY IS NOT 

/^ FROM KORE START 



VPM(PPDS .LAST$RUN) .SP$REG 
VPM (PRDS .LAST $RUN) .SS$REG 

end; 



stack$?th; 

stack$seg; 



/- SAVE STACK 
/- STATE 



■^/ 

'V 

*/ 



end; 
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/ ^i# M V^ ^ ^ Vt^ «rf# %*« %l^ %*« / 

^ ^ ^ ^ Q 0 n** -'i'^ -'i'^ ^ n- '1*^ ^ ^ V n' n'^ *'i' 5^' -r* n’" ^ n'^ V *r* "v* n^ n^ ^ ^r *r* n' -^ -nr nr n^ -^n ^r n' -'i' -*r ^ -^i* ^rnr n'^ -n^ i'* nr y' 

/- GETiSP PROCEDURE ROWS 2 APR 84 "V 

/j;t >V 

/- RETURNS STACK POINTER OF CURRENT RUNNING PROCESS AS '-^V 
/* SAVED IN THE VIRTUAL PROCESSOR MAP -/ 

/« ❖/ 

/* CALLS MADE TO: RET^VP -/ 

/ w*^ >>> ^*<» v> *Ai» V' W V^ **^ V< *V yV V^ *'* *** ^'* *'* V** V* ^**' s'* *V y'* '** V' V** >*^ / 

»,«. ^ '!■» ^“n' 'f' ^ *r* n** ♦»• ^r ^ n* ^ *n' "r n^ "r •'i* *’*■' **' ''p 'p 'i* ^p 'p *^p ^ "p 'p ■'p *p n'’*r* ^p *p ^*‘ *p n* *r* 'P "p ■•i* ^ n' <'p / 



GET$SP: PROCEDURE WORD REENTRANT PUPLIC; 

DECLARE N BYTE; 

N = RET^VP; /- GET CURRENT RUNNING VIRTUAL PROCESSOR 'V 
RETURN VPM( N) .SP$REG; /- RETURN NEW VP STACK POINTER */ 



end; 



/^ ji ^ ^ / 

(j^ y\ ^r ^r nr ^r ^r ^r nr ^r ^r ^r ^r ^r ^•'“ ^r ^r ^r ^r ^r ^r ^r ^r ^r ^r / 

/- GETWOFK PROCEDURE ROWE 6-22-8 i '-^/ 

/if- if/ 

/if determines THE NEXT ELIGIBLE VIRTUAL PROCESSOR TO RUN -/ 

/if if/ 

/- CALLS MADE TO; CUT$CHAR 0UT$LINE CUTiD.NUM -/ 

^,y ^,y #p •»(■» **|y ^ Jp *«|» »^y *«|» »p «*^*i •«|'» J,y <y* ^«i >,» «»|y <y>» V(*> >p ^,> «»|y i»jy ^y ip <i^«. ip #p « ip ip i;* <»p in ^p <j* ^p ^p / 



GETWORK: PROCEDURE WORD REENTRANT PUBLIC; 



DECLARE (PRI,N,I) BYTE; 
DECLARE SELECTEDSDBR WORD; 
DECLARE DISPLAY BYTE; 



/ifif>{iif 


MXTRACE 


if if if if 


MXTRACE 


y*^ y*# 

O' or* O' 'r o' 


MXTRACE 


/ifififif 


MXTRACE 


«■* yjy yu y*<« 
O' o' V O' 


MXTRACE 


y(i> y* y* yiy 

Oy ^p 'p <Y> 


MXTRACE 


/- CALL 0UT$LINE(9M 


SG7 ) ; 






/ yAr y»<> 

/ O' O' O' O' 


MXTRACE 


^s ^1% ^1% 


MXTRACE 


y'* V'" y'' y'* 

o% >p ^p ^p 


MXTRACE 


/ yU y»- yA- 

/ O' O' O' '1' 


MXTRACE 


if if if if 


MXTRACE 


yV y*- y*" y’» yV 
^ O' O' •'•' ^ 


MXTRACE 



O' *%' V 

,1-0- yy 
O • O' O' ^ 






MX TRACE 
MXTRACE if^'^'if / 

MXTRACE 
MXTRACE ^^'■’-'4'^/ 



PHI = 255; 

DO /- SEARCH VPM FOR ELIGIBLE VIRTUAL PROCESSOR TO RUN -/ 
I = PRDS.VP$START TO PRDS . VP^EKD; 

IF /- THIS VP'S PRIORITY IS HIGHER THAN PR I -/ 

( (VPM(I ) .VP$PRIORITY <= PRI ) AND 
( VPM(I ) .STATE = READY)) THEN DO; 

/^ SELECT THIS VIRTUAL PROCESSOR ^/ 

PRI = VPM(I) .VP5PRI0RITY; 

N = i; 

end; /- IF -/ 
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EMD? /- DO LOOP SEARCH OF VPM ’V 

/- SET SELECTED VIRTUAL PROCESSOR -/ 
VPM(N).STATE = RUNNING; 

SELFCTED$DB? = V?M ( N ) . S S $R EC- ; 



MX TRACE MXTRACE 



MXTRACE ---- MXTRACE 
/=" CALL 0UT$LINE(0MSG7A) ; 
/=<= CALL OUT$HEX(N); 

/- CALL OUTACHAR(CR); 



/>:' CALL OUT$CHAR(LF) ; 

CALL OUT$LINE((AMSG7B) ; 

/- CALL OUT$DNUM(SELECTEDADBR ) ; 
CALL OUTSCHAR (CR ) ; 

CALL CUT$CHAR (LF ) ; 

^ MXTRACE MXTRACF 



MXTRACE =«■' 






MXTRACE 4: 



MXTRACE 

MXTRACE 



MXTRACE 

MXTRACE 



MXTRACE 

MXTRACE 



%*- 

# 1 % # 1 % # 1 % 



/ 

/ 

/ 



>|s };; i); ,vj J pj ;i Q Jj s^- « s): i;: / 

MXTRACE 



RETURN SELECTED^DBR ; 



end; /- GETWORK PROCEDUPE -/ 



1 ^ ^ 
^ 1 ^ >-< ^ 

LOCATE$EVC PROCEDURE 



O- %V *!4^ '* ^ V*^ / 

# 1 % > 1 ^ # 1 ^ # 1 ^ » 1 % # 1 % # 1 ^ ^ 1 '* y 

ROWE 6-22-84 



/ 

/ 5 ;c :■,/ 

FUNCTION CALL. RETURNS THE INDEX IN EVENTCCUNT TABLE -/ 
/- OF THE EVENT NAME PASSED TO IT. -/ 

“^Z 

'r / 



/'^ 

Z* CALLS MADE TO: CUT$CHAR CUT$LINE 

»*i» V' V' V' •>*' *V o .> %♦< V* / 

#)> 4^ »Tp« <»Y* *T* *1* *T* ^T* *T* / 



LOCATES EVC : 



P R 0 C EDUR E ( E V E N T $ N A M E ) 



BYTE REENTRANT PUBLIC; 



DECLAPE EVENTSNAME BYTE; 

DECLARE (MATCH, EVCTBLSINDEX) BYTE; 



MXTRACE MXTRACE 

/ji!j:;};«:;5 MYTPAC''^ MX'T’RiC'^’ 

Z- CALL CUTSLINE(OMSG20) 
/^xs:;o-^ MXTRACE ^■''•'^"'^•' MXTRACF 
MXTRACE MXTRACE; 



3j< ^ 


MXTRACE 


s;c>;js;; j;; 


MXTRACE 


V3p5ii5? / 


*A* 

4 ^^ -TT* 


MXTRACE 




MXTRACE 


^ ^ ^ ^ 




MXTRACE 


3j^ 5|{ j;c 


MXTRACE 


yZ 


jj;};::;;** 


MXTRACE 




MXTRACE 


^ ^ V ^ 



MATCH - false; 

EVCTBLSINDEX = O; 

Z- SEARCH DOWN THE EVENTCOUNT TABLE TO LOCATE THE -Z 
Z- DESIRED EVENTCOUNT BY MATCHING TEE NAMES "V 
DO WHILE (MATCH = FALSE) AND (FVCTBL$ INDEX < EVENTS); 
/^ DC WHILE HAVE NOT FOUND THE EVENTCOUNT AND HAVE NOT -Z 
Z- REACHED END OF THE TABLE -Z 

IF EVENT^NAME = EVCST3L( FVCTBLS I NDEX ) . EVC$NAME THEN 
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^^ATCH = t?uf; 

FLSF 

EVCT 3 L$ 1 NDFX = FV CTSL< I MDFX *1 ; 
end; /- WHILE 

/- IF HAVE FOUND THE FVFNTCOUNT -/ 

IF (MATCH = TRUE) THEN DO; 

/- RETURN ITS INDEX IN TEE SVCATBL / 
^^XTP. ACE MXTRACF 

MXTRACE ---- MXTRACF 
/>" CALL 0 UTSLIMS(GMSG 23 ) ; 

MXTRACF MXTRACE 

MXTRACE ---- MXTRACE 
RETURN EVCTRL$ index; 

end; 

ELSE do; 

/- RETURN NOT FOUND CODE -/ 

MXTRACE MXTRACE 

MXTRACE MXTRACF 

/- CALL 'OUT$LINE( 0 MSG 24 ) ; 

MXTRACE MXTRACE 

y'sjtsitxssjj MXTRACE MXTRACE 

RETURN NOT$ found;’" 
end; /- ELSE =<%/ 

end; /- LOCATE 5 EVC PROCEDURE -/ 



MXTRACE 




MXTRACE 


V %v ■»’- ^ 

«YV y 


MXTRACE 


.». %•» o- 

"r* *1' 'i' "i'* 


tMX TRACE 


Jji Jp ^ 


MXTRACE 


*(* 


MXTRACE 




MXTRACE 


»* # 


MXTRACE 


^ 


MXTRACE 


5,t J,f J,' 


MXTRACE 


**<» v<» / 
/ 


MXTRACE 


;{;5;s5?y.c 


MXTRACE 


5,t y' 


MXTRACE 


j;c 


MXTRACE 


j;c?;r>:c^c / 


MXTRACE 


3p Jp 


MXTRACE 


V 'I' 'r ^ y 



iOi V" »V vV *'■' •** V* y 

f « V 1 ' r 'i" ^1* ^r* o* *(* •*!' ^1* •Y' »,*■ i»|» »>|« #^fs >,* / 

/* L0CATE$SE0 PROCEDURE POwE 6-22-84 

^ 5|i - — — — — . — — / 

7=^' FUNCTION CALL TO RETURN THE INDEX OF THE SEQUENCER -/ 
/- SPECIFIED IN THT^ SEO-TAPLE. -/ 

/ 

/^' CALLS MADE TO: OUT $L INF ’V 



/ 5|i 5|i 5js >;c ^ )|c 5;; 5’.c 5|i 5 |j i;s s;: >;< i|c ^ 5;c i|j ?;c jjc ?;< >(c >;t j;c ;;< i[i i|i ^ i;c 5’,i >|c sj? i); ^ s;c i,‘: 5 ^ j;c 5|c >;c >;c ^;s v 



: 3;c j;c 



LOCATE$SEQ: PROCEDURE (SE 0 $NAME) BYTE REENTRANT PUBLIC; 



DECLARE SEO$NAME BYTE; 

DECLARE ( MATCH, SEOTEL$INDEX ) BYTE; 

MXTRACE MXTRACE MXTRACE ---- MXTRACE 

/-'i''!'’!'- MXTRACE MXTRACE MXTRACE MXTRACF 

/* CALL OUTSLINE(0MSG22) ; 

MXTRACE MXTRACE MXTRACE MXTRACE 

MXTRACE MXTRACE MXTRACE MXTRACE 



MATCH = false; 

SEOTBL$INDEX = 0; 

DO WHILE (MATCH = FALSE) AND ( SECTBLil NDEX < SEQUENCERS); 
IF SE0$NAME = SEO$TABLE(SEOTBL$INDEX) .SEO$NAME THEN 
MATCH = true; 

ELSE 

SECTBL$INDEX = SEQTBL$INDEX + i; 
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end; /’- WFIL? '■/ 



IF (MATCH = TRUE 


) THEN DO 


U 










/:<t5?j,*c}:s [^XT-ACE 


MXTRACE 


^p #P 


MXTRACE 


^ ^ 


MXTRACE 


/ 

n* -r 'I* / 


MiXTRACE 


MXTRACE 


31c 3|i 3;^ 3',: s'ji 


MXTRACE 


%•> 

-i’* -j* -1'* '1' 


MXTRACE 


:;r:;:5;cy,: ^ 


/^ CALL OUTSLINE(0MSG23) ; 












MX TRACE 


MXTRACE 


"1* -I* -1- 


MXTRACE 


;;c3;s3;c5:c 


MXTRACE 


'»’* -r -1" <'•' / 


|v|XTRACE 


MXTRACE 


silJiot: };<:(£ 


MXTRACE 


3,? 3jC 3,C 5|i 


MXTRACE 


:',c 3|C 5j' 3|: ^ 


RETURN SFOTELSINDEX; 












end; /- IF '7 














ELSE do; 














N'XTRACE 


MXTRACE 


*JU 

^ ^ -1 • '\‘' -T* 


MXTRACE 


-T“ V -1’* 


MXTRACE 


3|c 3jc 3|C 3^ ^ 


^^XTRACE 


MXTRACE 


5;t 5;^ :;!? 


MXTRACE 


«.v 

-1* 'l' -l* 


MXTRACE 


j-y.c^c- / 


CALL 0UT^LINF( 


0MSG24 ) ; 












N»X TRACE 


MXTRACE 


V' 

3jr* 't' -r »>' -r* 


MXTRACE 


%IU- 

-Y* -1' -t* 


MXTRACE 


^ j;c ^ 


MXTRACE 


MXTRACE 


:;< 3;s y.r 


MXTRACE 


-.V 

-T* -•' -r -1 


MXTRACE 


/ 

^p >P #p >p / 



* MXTRACE MX 
RETURN NOT^ found; 
end; /’^ ELSE 



end; /’■■= LCCATE$SEQ PROCEDURE -V 



'V V* V* V' V* '*** ^*«* 

M ^ y w -m O' 'I' n' -S’* *c *x" 'S’* 'S'* *%' ^.'* 'i'* ^.* *i'‘ ^ ^•* •nr "r 'TT -t* *S' 'S*^ 'T* -ir 'S' ^ ^ 

»•< w»> ^ V- 5*^ V' 'sV V** **^ '*«' *^ 

-S' -n-* -*,-* -S’* ^ -s' ^ 'S'* -t* ^ -S' n* ^ ^ "r V ^ 'T* ^ ^ -s^ ^ ^ <,>- 4f,» 4-f. ^ 3p «Y* ^ 

/"‘ SYSTEM PROCESSES 

/« 



'*r v^ ^ ^V V^ V^ / 

#y% #1^ ^p #p ^p / 



7 

.'7 

❖/ 



/ 

/❖. 

/- 

/’- 

/'*' 

/’i' 

/- 

/'•' 

/- 






» 



j|s j|i 5(c 5ji :i^ >;c >|c s;c v ajc >;« 3*^ s;t jj; i\c >|c 3{t i|c :;? i*c 3 ;: i;: 3;c 3 ;: 3|i 3;c 5|c 3|? 3 ;: 3|c 3;c y' 



IDLE PROCESS 



RCV.E 6-22-S4 



-V 

V/ 

THIS PROCESS IS SCHEDULED IE ALL OTHER PROCESSES IN -7 
THE VPM «RE BLOCKED. THE STARTING ADDRESS IS PROVIDED-V 
TO THE IDLE$STACK AND PLACED IN PRDS . I DL E$DBR . A "7 

COUNTER IS INCREMENTED ABOUT EVERY SECOND. THE COUNT ‘V 
IS MAINTAINED IN THE PP.DS TABLE AND IS A ROUGH MEASUfE’:7 
CE SYSTEM PERFORMANCE BY GIVING AN INDICATION OF THE -7 
AMOUNT OF TIME SPFNT IN THE IDLE PROCESS . */ 



/❖ 

/’" CALLS MADE TO: PLM86 PROCEDURE 'TIME' 

/- OUTALINE 

y' 3{? Jjisjt 3;5 3{0;t>^< 3;S5;c 5|;5l: y,? 3|? 3|: 3j: 3;s 3jc 3|c 3jc 3|c S;S35: 3|C3jt 5|i 5|< 3jc 3!<5jc 5|t3{< 5|i 5^ >!< 5l< i,*' 3^^ 3|: Jj: 3|i 3;? 

IDLS$PR0C: PROCEDURE REENTRANT PUBLIC; 



'7 



DECLARE I byte; 



/ 

/ ^ ^ *»’* 


MXTRACE 


>;j^‘:;:;:{t NjXTRACE 


MXTRACE 




MXTRACE 


^ 3jC 3gi 3j? J 




MXTRACE 


f-JXTRACE 


MXTRACE 




MXTRACE 


*t' 's' -Y’* / 


CALL OUT$LINE(0MSG10) ; 










/s:o:< 


MXTRACE 


[vjXTRACE =!'=<' 


MXTRACE 


5|i 3|» 3|i 5j€ 


MXTRACE 


3jt 3ji ^ 


i 

/ 


MXTRACE 


MXTRACE 


MXTRACE 


5;<s;c3;c 3;^ 


MXTRACE 


'*!’* 'T ' 1 ' -T* / 


/❖ 


DELAYS 


ONE (1) SECOND 










LOOP ; 


DO I = 


1 TO 40; 
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C.iLL Tir^E( 252 ); 

end; 

MXTP.ACZ 
MXTxEACE 

MXTRACE 
MXTRACE / 

PPDS. COUNTER = PHDS . COUNTER + i; 

CO TO loop; 

end; IDLE$PBOC -/ 



^ 5*1 5|c 5*i 5*i 


MXTRACE 


^iXTRACE 


<|» 


MXTRACE 




MXTR A.CE 


j;: :J{ J|5 MXTRACE 




MXTRACE 


/'" 


CALL OUTALINE(0MSG11 ) 


• 

f 




i 


MXTRACE 


jisjiejitiii fvixTRACF 


5r 5fi ijc 


MXTRACE 




MXTRACE 


MXTRACE 


-»r n* 'x' 'r 


MXTRACE 



/- MCmITC?. PROCESS 

/>:c 

/- 



»*<» *’ 



5|fC J>,C J,C JjC 5jC ij5 5j% 2|C ^ 



ROWE 6-22-84 



■■/ 



7 

7 



TEE MONITOR PROCESS IS INITIALIZED BX THE OS LIKE 
INIT 3ND IDLE. IT H.^S THE RESERVED ID OF OEEH AND A 
PRIORITX OF OR. IT IS ALWAYS BLOCKED OR WAITING UNTI 
IT IS PREEMPTED BY TFE USER. 



/- 
/« 



/* CALLS MADE TO: 
/- 

/- 



OUT$LINE 

OUT$DNUM 

INANUM 



OUT $ CHAP 
IN$DNUM 



5|C jJj 3jC 3 



p %.*A ^ 

«, -V O' O'* o^ ^ O' ^ ^ O' O' O' O' O' "r ''i' o** O' or o' o^ o' o' 0‘ ^ 



• ^ 5,1 ' 



^7 

-7 

>? s;-' / 



MXTRACE ---- MXTHACE MXTRACE 

nixTRACE MXTRACF =5=-'i==:'=i'=!« MXTRACE 

/-' MCNITOR$?ROC : PROCEDURE REENTRANT PUBLIC; 

/* 

/❖ 

/- 

/- 

/- 
/^< 



- -;: 3^5;: X T R A. C E '•' ^ ’•' '•' / 



DECLARE 
PTR 
PTR2 
PTR3 
A DDR 



POINTER , 
POINTER , 
BASED PTR2 POINTER, 
STRUCTURE (OFFSET WORD 



MXTRACE 



5,' 5/ 



'•7 



EASE WORD), 



CONTENTS BASED PTR BYTE; 



DECLARE 

/- (LINECOMPLETE, LC0P2) BYTE, 

/* (QUANTITY, COUNT) BYTE, 

/- (INCUR, INDEX, VALID5CMD) BYTE; 

/- LOOP: VALIDACMD = 0; 

/- CALL 0UT$CEAP7CR); 

/* CALL OUTACHAR(LF); 

/’^ CALL OUTACHAR( 7 ') ; 

/"' DC WHILE NOT VALID$CMD; 

/* CALL INSCHAR(GINCHR) ; 

/- IF (INCHR = 'D') OR (INCUR = 'S 7 OR (INCHR = 'E 7 T^^EN 
/* VALID$CMD = 0FFH; 
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/- 

/» 

/« 

/- 

/- 

/'■' 

/- 

/^' 

/* 

/j:< 

/- 

/ ''' 
/'•' 

/- 

/'•' 

/>:. 

/’- 

/- 

/>:< 

/=!* 

/❖ 

/>;x 

/« 

/- 

/- 

/ «.*« 
/- 

/- 

/- 

/’!= 

/ %♦* 
'•' 

/❖ 

/- 

/- 

/=^ 

/::< 

/’- 

/=^ 

/❖ 

/« 

/« 

/❖ 

/❖ 



IF (INCH-=64H) OF (INCKH=65H) OP (IMCHK=73H) THEN 
VALID$C^^I) = offh; 

IF '/ALIDiCMF = BFFH THEN CALL OaT$CHAH (I N GHH ) ; 
end; /- DO WHILE <S/ 

IF (INC HR = 'D') OR {INC'^R = 64H) THEN DO; 

/- DISPLAY COM^.AND SECTION -/ 

CALL INADNLT( 0A DDR .BASE) ; 

CALL OUT$CHAR( ' : '); 

CALL IN$DNUM(GAPr?.. OFFSET) ; 

PTH2 = 0ADDR; 

PTR = PTR3; 

/- CONTENTS SHOULD NOW BE SET -/ 

DO WHILF (INCHHOCR) AND (INCHR023K); 

CALL IN$CHAR(OINCHR) ; 
end; /- DO WEILS ’V 
IF INCHF = C? THEN DO; 

CALL CUT$CHAR( '-' ); 

CALL OUT$NUN' ( CONTENTS ) ; 

CALL OUT$CHAR(CR ) ; 

CALL OUTiCHAR(LF) ; 
end; /-<■ IF NORMAL 1 '.DDF DISPLAY 
IF INCHR = 23H THEN DO; 

COUNT = 0 ; 

C ALL OUT$CHAH( '^' ) ; 

CALL IN$NUM(OOUANTITY) ; 

DO WHILE QUANTITY > 0 ; 

C«LL OUT$CHAR ( CP ) ; 

CALL OUT5CHAR(LE) ; 

CALL OUT5DNUM(ADDH.BASE) ; 

CALL OUT$CHA.R( ': '); 

CALL OUTSDNUM(ADDR. OFFSET) ; 

LINECCMPLETB = FALSE; 

DO WHILE LINECOMPLETE = FALSE; 

CALL OUT$CHAR( ' ') ; 

CALL CUT$NUMf CONTENTS ) ; 

ADDR .OFFSET = ADDR. OFFSET + l; 

— P*PR3 f 

OUANTITY = QUANTITY - i; 

IF ( (ADDR .OFFSET AND 000FH)=0' OR 

(QUANTITY = 0) THEN LINECOMPLETF=TRU 
end; DO WHILE LINE NOT COMPLETE -7 
end; /- DO WHILE QUANTITY -/ 
end; /’- IF MULTI ADDF DISPLAY -V 
end; DISPLAY COMMAND SECTION -/ 

IF (INCHR='S') or (INCHP=75H) TEEN DO; 

SUFSTITUTE COMMAND SECTION -V 
CALL IN$DNUM(OADDR.BASE) ; 

CALL CUTiCEAR (':'); 

CALL INADNUM(0ADDF .OFFSET ) ; 

CALL OUT$CHAR ('-'); 



/- PTR2 = ?addr; 
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?TR 


= PTR3; 


/ 


/?’r 


CURRENT CONTEVTS SHOULD NOW 3E AV^ILAEL 




CAL 


I CUT$NUM( CONTENTS) ; 


/ 


L00P2 = TRUE; 


/- 


DC 


WHILE LC0P2 = true; 






DO WHILE (INCKRO', ')A,ND(INCHR<^>' ') 


/- 




AND(INCHROCR) ; 


/❖ 




CALL IN$CHAR(0INCFR ) ; 


/❖ 




end; 


/- 




IF (INCHR = Cl) THEN L00P2 = FALSE; 


/- 




IE (INCHR = ',') THEN DO*, 






SKIP THIS ADDR AND GO TO NEXT FOR 






CALL OUT$CHAR(CR) ; 


/❖ 




CALL OUT$CHAR(LF) ; 


/- 




a DDR. OFFSET = ADDR. OFFSET + i; 


/’!= 




PTR = PTR3; 


/- 




CALL OUT$DNUM( ADDR. BASE ) ; 


/*•' 




CALL OUT$CHAR( '; ' ) ; 






CALL OUT$DNUM(ADDR.OFFSET) ; 


/■" 




CALL CUT$CHAR( '-' ) ; 


/'•' 




CALL OUT$NUM( CONTENTS ) ; 


/- 




end; /- if SKIP FOR NEXT SUP -/ 


/❖ 




IF (INCHR = ' ') THEN DO ; 


/-' 




CALL OUT$CHAR(' '); 


f 




CALL IN$NUM(0CONTENTS ) ; 


/- 




DO WHILE (INCRROCr. )AND(INCH?<1 ', ') ; 


/- 




CALL INSCHAROINCHR ) ; 


/- 




end; 


/- 




IE (INCHR = CR) THEN L00P2 = FALSE; 


/- 




IF (INCHR = ',') THEN DO*, 



/« 

/- 

/❖ 



c;ll out$chj?.( ; 

ADDR.OJTSFT = ADDR. OFFSET + i; 
?TR = PTR3; 



/- 

/- 

/'•' 

/- 

/- 

/’•- 

/❖ 

/- 

/« 

/- 



CALL OUT$CHf'R(CR) ; 

CALL OUT$CH.cR(LF) ; 

CALL OUT$LNUM(ALDR .EASE) ; 

CALL OUT$CKA5 

CALL OUT$DNUM( ADDR .OFFSET) ; 
CALL CUT$CHAR( '-') ; 

CALL OUT$NUM' CONTENTS ) ; 
end; /- IF CO TO NEXT ADDR -/ 
end; /- IF CHANGE CONTENTS ’’•V 
INCHR = 'X'; /- REINITIALIZE CKD 'V 
end; /- LOOP, CONTINUOUS SUE CMD 
end; /- SUBSTITUTE COMMAND SECTION / 



/- IF 'INCHF='E') OR (INCHH=65H) THEN DO; 

/- /- FIND OUT WHICH VPS IS RUNNING 'ME' - / 

INDEX = RET$VP; 

/- /<' NOW FLOCK MYSFLF -/ 

/- disable; 

/-' PF.DS .LAST$F.UN = INDEX; 



SUE ’V 
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VPr( INDEX) .ST 3.TE = V/filTING; 

CALL VPSCHEDULER; /- NO RETURN -/ 
end; I? */ 

/- DO TO loop; 

/- end; /- ^'ONITOR PROCESS -/ 

MXTRACE MXTRACE MXTRACE 

/ >;« ^ 5it f.'. X T r A C ? ’•' M X T H A C E N: X T F A C E 



MXTRACE 

hXTR^CZ 



^ %*# %•# ^0 *»x» ^^0 %.^0 ^^0 ^^^^^0 ^^0 '» %i# %^0 • ^*# y 

0^% iA {^ >1% y|» 0^^ 0 ^1% ^1% ^|S #1% ^1% « I . ^1% ^1% ^1% ^1% ^1% ^1% ^1% #1% • #1% #|« ^1^ ^i‘ #1^ #|« #1% / 

/ vi^ %v ^*0 %*0 *J-0 ^-0 v^ ^ ^ V^ V^ V< ^*0 >** V^ V^ ^*0 %*0 V*' / 

^1% #1% «>|^ >1^ 0\*» #1^ #1% >1^ yp yp ^p #p yp ^P ^p yp yp #p ^p yp ^p ^p ^p yp ^p yp #p ^p #p ^p ^p ^p ^p #p #p yp ^p yp / 

/- STARTING POINT OF THE OPERATING SYSTEM -/ 

/^: 5;'-/ 

/- ROUTINE INITIALIZES THE OS AND IS NOT REPEATED. -/ 

/ %(# %•« «*« «v «*« «J « v(# %*.• %(# «'« K‘* «*> ^J> ^ <• «*' «*^ «i<« «'« %*« «’> / 

^1% >|» <»,s ^f* >1' ^,'> •I' *,» ^^' .'i' ■»,» »|* *Y* *f • 

»•.» «■« %0 V* '*» '*' V' •»*' ^V **' 'J.' 0» w*^ ^*» *'^ V* •*.• »'. «'« %'* « > '« « / 

- - “ «y^ ^1% ^1% >1^ #(% .p^» ^fs >1% ^1* «p «|« 0f< ^jS »,• #,« / 



/ %!# V# %V «•.» 

‘T*- n' 'r ^ 'r 



/ 



/'" TO INITIALIZE TEE PRDS TABLE FOR THIS CPU "v' 
DECLARE CPU$PT? POINTE? DAT A ( OPRDS . CPU $NUMBER ) , 

zz byte; 



disable; 



/*^«j;{;;j [^XTF ACE MXTP.ACE 

/-rjijijij;'. MXTRACE =i'-'!''^':' MXTRACE 

/- CALL CUT$LINE(0MSG12) ; 



MXTRACE 

MXTRACE 



^0 

#p #p -^p ^p 



MXTRACE 



MXTRACE 



5p >)C J’p 5|C 
5.J S|C jjS >,i SjC 



VVn'*' 



^p gpp 



MXTRACE 

MXTRACE 



MXTRACE 

MXTRACE 



5;: >;: i;c ;;; 
3^ n' 5|' 

jjc j.cj't 5 }; 



MXTRACE 

MXTRAC^ 



5j% 5|«> J|S 
n* n' / 



MXTRACE '‘‘ 
MXTRACE - 



/ 

/ 



/- INITIALIZE P ? I AND ? I C ^\/ 

OUTPUT(POFTACE) = OCOH;/- PPI - MICP.OPCLIS + MCCRTEX -/ 
OUTPUT f PORT$C0) = 13H; /- PIC - ICWl - EDGE TRIGGERED "V 

OUTPUT (?0RT$C2) = 40R;/^^ PIC - ICW2 -VECTOR TABLE ADDRESS -/ 
0UTPUT(P0hT$C2) = •?EH;A PIC - ICW4 -MCSB6 MODE. AUTO EG I -R/ 
OUTPUTS POHT$C 2) = 0AFH *, /=<‘?IC - MASK ALLOWING I NT. 4 E 6 -/ 

/^ ESTABLISH UNIQUE SEQUENTIAL NUMBER FOR THIS CPU -/ 

/- SET GLOBALALOCK "V 

DO WHILE L0CK$SET(GGL0BAL$L0CK,119); END; 

PRDS .CPUANUMFER = CPU$INIT; 

CPU$INIT = CPU$INIT + 1 ; 

/- RELEASE GLOBAL LOCK =<=/ 

GLOEALALOCK = 0; 



/- SET UP INITIAL START AND END 
PFDS .VPASTART = O; 



DC ZZ = 1 TO PRDS .CPU$ NUMBER; 
PP.DS . V?$START = PHDS. VP$ST ART 



end; 



MCORTEX 

MCC?TEX 



MCORTEX 

MCORTEX 



FOR PRCC TABLE */ 



+ MAXAVPSACPU; 

MCORTEX MCORTEX 

MCORTEX ---- MCCRTEX 
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^^DS.VPSFND = PHDS . V?$START + i; 

PHDS . VPS^FEHiCPU = 2; 

f.icO':TEX mcOKTEX MCCHTEX 

MX TRACE 'r'.' MXTRACF MX TRACE 

/'■' PRDS.VPAEND = PRDS . VPASTART + 2 \ 

P'-DS . VPSSPERACPU = 3 ; 

MXTRACE MXTRACF MXTRACF- 

MXTRACF MXTRACF MXT'^ACE 



MCORTEX 
--- MXTRACF 



MXTRACF 
MX f RACE 



/- INITIALIZE THE VP MAP FOR IDLE AND INIT PRCC -/ 
AND MCNITO" PROCESS -/ 

VPM^. PFDS .VP$STA?T) .'/PAID = Zbb', 

V?M( ?RDS .V?$START ) .STATE = i; 

VPM:; PHDS .VP^START) .VPSPRIORITY = 0; 

VPM''??DS .VP^STAFT) .EVCATHREAD = 255; 
VPM:;?HBS.VP$START) .EVC$A>;$VALU^ = 0; 

V?M^ PHDS .VP$START) .SP$REO = 60H; 

VPM( PPDS . VPASTapT) .SS$REO = INI T$3TACKASEG ; 
VP*«i(PRDS .VPSSTART+l ) .VPSID = 255; 

V?M( PRES .VP$START+1 ) .STATE = i; 

VPM( PRDS .V?$S TART+l ) .VPAPRICRITY = 255; 

VPM(?F.DS . V?$STaft+1 ) .EVC^TFI.EAD = 255; 

VP^^(P?.DS .VP$START+1 ) .EVC3AVSVALUE = 0; 

VP.M( PRDS . VPSSTART+1 ) .SP$REG = 60E; 

VPM( PHDS .V?$STAPT+1) .SS$FFG = IDLE$3TACK$SEG ; 



v^xTRAC’^' ---- MXTRACE ----- MXTHACE MXTRACZ 

/---- MXTRACE MXTRACF MXTRACE ---‘- MXTRACF 

/- VPM( PRDS .V?$START+2 ) . VPSID = 0FEE; 

/- Y?M( PRES .V?$START+2) .STATE - ?; 

/- VPM( PFDS .V?^STAFT+2 ) . VP^PRIOFITY = 0; 

/- V?M(PRr.S.VP$START+2).FVC$T‘^READ = 255; 

/- V?M( PRES .'/?$START + 2).EVC$A¥A VALUE = 0; 

/- VPM( PHDS .7Pt-3TART+2 ) . S?$RSG = 60H; 

/- V?M( PRES .VP$START + 2) .SSSREG = ^^CNITORASTACKSS 



— n . 

t 7 I 



! .•;? ;V iS' ^ -JI ^ C E 


--- MXTRACE 




MXTRACE 




MX TRAC 5 


/ s’.' s;: -f M X T I A C E 


MXTRACE 


ffi 5jt 5 ;; >;c 


MXTRACE 




MX TRACE 


VR$R?S = NR$R?S 


+ 1; 










MCORTEX - 


MCORTEX 


*’!'• 


MCORTEX 


'Ir n' 


MCORTEX 


/---- -MCORTEX - 


--- MCORTEX 


5, » 


MCORTEX 


n" n'' ^4' 


MCORTEX 


.NR$V?S f PRES .CPU^ NUMBER ) = 


2; 








MCORTEX - 


--- MCORTEX 


'1' "r 


MCORTEX 


sJn i\i 5j^ 


MCORTEX 


/---- N'XTFACE - 


MXTRACE 


"'i' 


MXTRACE 


^ 'I' V '1' 


MXTRACE 


/- NRiVPS^PRES. 


CPUi. NUMBER ) 










/---- M XT:- ACE - 


MXTRACE 


#,* 


MXTRACE 


'’!*• 'r 


MXTRACE 


V V.; RACY - 


MXTRACE 


.Jr- 

"r nr 


MXTRACE 


sJ^ 

nr n* 


MXTRACE 



HD;v$INTAFLAGf PRES . CPUiMUMBER ) = 0 ; 

enable; 
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PHDS .LAST$xRUN = 255; 

CALL vpscesdulsh; 



/- 



IMDICATi 



- - 



START ENTRY TO SCHEDU 
NO HETUHN 



ER 





















N*» %•» •*!» %'» V' V' »*<» '* <• »*» 

»,N ^JO #jN »C »p #|» ^Y' ^f* 'I ■ 'l* *,' 



«*««!« %•# %*» «J« « **- «••» %*» »V *'« *•» N*» *1^ «1« *•> »*^ «•« »•<» %•« ^<» 

»|^ «|« ^j» »|» « *,- • - »|» «|- »|» <>|^ *|-» ^|N ^,* ^,S ^,S 4r|» <ij» «|% *1% #1* />j-» «|% 



V^* »'<» 'J* »*» »*»' 

»Y- ''»' "r "r* -r* «'!' 'I' 



'!' 'I* '»• 'I' 



5 r 



/ 

/ 



end; /- Ll^f^ODULE -/ 



/ 

/ 

/ 



<•✓ y-r 

-1' V nr 



< 1 ^ .1 



1^ ^9 • %9^ N*^ v^ ^ % 

^1 • 1^ ^1% ^1^ ^|V ^1* ■ I » |S v|« . 1% ^1% ^1* 






-/ 

-/ 



>!' '»' 5 '.' 






>;c 



5 l< 



?;: >|i :;c >;c 5 *,; 















3 ^** ?** 
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^CORT^J f'^CORTT’X 



MCORTRX 



‘^CORT' 



7 



.F1:L0C86 KCRR.L\'K ADDRESS ES ( S IG'^,FMTS ( & 
STACK(2C790'-^ ) ,S 
I?.jITr^OD_CCDF; 34592E) ,S. 

GLOB AL^ODaLE_DATA (2E7942E) ) )& 

GEGSIZE ( STACK (75H) )D. 

RESERVE (0R TO OBAFFH) 

WARMING 5c: SEGMENT IN RESERVED SPACE 

SEGMENT: ^NC NAME) 

WARNING 56: SEGMENT IN RESERVED SPACE 

SEGMENT: IMITMOD CODE 



SYMBOL TABLE OF ^ODULE LIMODULE 
READ FROM FILS KCRE.LNK 
WRITTEN TO FILE :F2:KORE 



EASE 


OFFSET 


TYPE SYMPOL 


BASE 


OFFS 


ET ' 


TYPE SYMBOL 


OC6AH 


0CCCH 


PGB 


PROS 


3BB0K 


C380H 


PUB 


IDLEPROC 


CP BOH 


C3C2H 


PUB 


LOCATSSEO 


3SBCH 


C284H 


PUB 


LCC-iTIEVC 


0PBOR 


020PH 


PUB 


GETVORK 


CPBCH 


31E3H 


PUB 


GZTSP 


CBBOH 


01AEF 


PUB 


SAVSCONTEXT 


0333K 


0185H 


PUB 


RDYTHISV? 


CBBCH 


C13AE 


PUB 


I. FT VP 


CBEBH 


C683F 


PUB 


CKEATEPROC 


0EFBH 


0e2A^* 


PUP 


TICKFT 


CBEPH 


C5C7K 


PUB 


CRT^ATESEO 


0BEBH 


03CFE 


PUB 


PREEMPT 


CBEBH 


3223F 


PUB 


ADVANCE 


CBEBH 


C17SH 


PUP 


AWAIT 


CBEBH 


0127H 


PUB 


READ 


2 BEEF 


03? EH 


PUP 


CREATES VC 


CBEBH 


002EH 


PUB 


GATEKEEPER 


CC6BH 


oecoH 


PUB 


VPSCHEDULER 


CC6PH 


0033H 


PUB 


iNTrsc 


<?439P 


00C2R 


PUP 


INITI ALPROC 


E794H 


C192H 


PUP 


VPM 


P794K 


3593H 


PUP 


SEOTAPL^ 


E794H 


3592H 


PUB 


SEOUEMCERS 


E794H 


C591H 


PUB 


CPU I NIT 


E794H 


0002H 


PUB 


EVCTPL 


’'•■794H 


C593H 


-UP 


EVENTS 


E794H 


05B6E 


PUB 


KDWINTELACx 


E794H 


357 CF 


PUB 


NR VPS 


E794H 


057PH 


PUP 


NRRPS 


E794H 


357 AH 


PUB 


GLOPALLCCK 
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NAP C7 NODULF LINODULF 
'-^EAI FRCM FILE KOHE.LNK 
WRITTEN TC FILE :F?:KORE 



'^ODULE 

SEGMENT 


START ADD?. 
MAP 


ESS PARAGRAPH 


= 0PE0H OFFSET 


= 0030H 


START 


STOP 


LENGTH ALIGN 


N A ME 


CLASS 


t?011CH 


001 13H 


0004H A 


■ABSOLUTE) 




04390}] 


043a9H 


001AH v; 


INITM.OL CODE 


CODE 


0FB00H 


0BFP3H 


03H4H W 


LI MODULE CODE 


CODE 


0‘9EE4P 


0C69FE 


07ECH W 


L2M0DULE CODE 


CODE 


0CeA0K 


0C6A ?H 


0000H W 

-ODE 


GLOBALMODULE_C 


CODE 


0C6A0H 


0CMA7K 


0003F A 


LIMODULE DATA 


DATA 


0C6«6E 


0C62BH 


0000H W 


L2M0DULE DfTA 


DAT A 


0C6A£r 


0Ce^ 8H 


0001 H W 


INITMOD DATA 


DATA 


0CeP0F 


0C6B0H 


0000H G 


??SEG 




0C6E0? 


0C746H 


0097H G 


SCHEDULER 




0C?3eK 


0C7F4F 


0075H W 


STACK 


STACK 


0CB00H 


0Ce79H 


007AH A 


ABSOLUTE) 




0C380K 


0C8F9H 


007AH A 


(ABSOLUTE) 




F7942H 


F7FFEE 


063DH W ~ 

-AT A 


GLOBALMODULE_D 


DAT « 


E8000H 


E3000H 


0000 H W 


MEMORY 


MEMORY 
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MXTf:aCF 






I^XTHACI 



K X T ^ C ~ i'f'r''-' 



NXT? h Cl 



ISIS-II "^CS-86 LOCATER, VI. 1 INVOKE! BY: 
r?l:LCC36 KOHE.LNX ADDRESSES ( SEONENTS ( & 

STACK (?.C4E0r) ,S 
IN ITN10!_CCrE ':04399H) ,S 
OLCBAL!^ODULE_DATA (CE7942H) ) )£> 

SEGSIZF(STACK (75H) )& 

RESERVE (0H TO 0A5FFH) 

WARNING 56: SEG(^ENT IN EESERVED SPACE 

SEGMENT: (NO NAME) 

WARNING 56: SEGMENT IN RESERVED SPACE 

SEGMENT: INITMOD_CODE 

SYMBOL TABLE OF MODULE LIMODULE 
FEtD FROM FILE KOFE.LNK 
WRITTEN TO FILE :F0:KORE 

BASEOFFSET TYPE SYMBOL BASE OFFSET TYPE SYMBOL 



0C0DR 


900 A, K 


PUB 


PRDS 


0.AC0E 


04 £6 E 


PUB 


MON I TOP PR OC 


0AC0E 


049 CH 


PUB 


IDLEPROC 


0AC0H 


03FDH 


PUB 


LOCATESEQ 


0 AC?E 


035EH 


PUB 


locatfevc 


■0AC0H 


0293H 


PUB 


GFTWORK 


0AC0F 


0 26BP 


PUP 


GETS? 


0AC0H 


0236H 


PUB 


SAVECCNTEXT 


9 AC OR 


01TEE 


PUB 


RDYTHISVP 


0AC0K 


0165H 


PUB 


RETV? 


9B4AH 


0C06F 


PUB 


OUTREX 


0E4AH 


0B01H 


PUB 


I VHEX 


9P4AH 


0A51H 


PUP 


SEN DC EAR 


0?4AE 


0 ASEH 


PUB 


RFCVCHAR 


OB4AH 


0A62R 


PUB 


OUTDNUM 


0B4AH 


0A29H 


PUB 


INDNUM 


0B4.A F 


0A11H 


PUB 


OUTNUM 


0P4AH 


09C2E 


PUB 


OUTLINE 


0F4AH 


09AAH 


i^UP 


OUTCEAR 


0P4AH 


098 EH 


PUB 


IN MUM 


0B4AH 


09? 4H 


PUP 


INCHAR 


0P4AH 


0e04E 


PUB 


CREATSPP.OC 


034AH 


0798H 


PUB 


TICKET 


034AH 


0712H 


PUB 


CREATES SO 


0E4AH 


04F9H 


PUB 


PREEMPT 


0P4.A.H 


033CK 


PUB 


ADVANCE 


0B4AH 


028 IK 


PUB 


AWAIT 


0B4AH 


020DH 


PUB 


READ 


9B4AH 


0162E 


PUB 


CREATEEVC 


0P4AE 


0062H 


PUB 


GATEKEEPER 


0C31K 


00v’0R 


PUB 


VPSCHEDULE? 


0C31H 


0033H 


PUB 


INTV EC 


0439H 


0002K 


PUB 


INITI ALPROC 


F794H 


0192H 


PUB 


V?M 


E794P 


05P3E 


PUB 


SECT able 


E794E 


0 592H 


PUB 


SEQUENCERS 


F794H 


0591R 


PUB 


CPUINI? 


E794H 


0002?! 


PUB 


EVCTBL 


E794H 


0590H 


PUB 


EVENTS 


E794H 


0 5fe6H 


PUB 


EDwINTELAG 


E7 94F 


05'?CH 


PUB 


NR VPS 


E794F 


057 BE 


PUB 


NRRPS 


P794H 


057AF 


PUB 


GLOBALLOCK 
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^'.E^'OHY rAP OF MODULE LIMODULE 
READ FRC^ FILE KORS.LNK 
VRITTiN TO FILE :FO:KORE 

'MODULE ST^RT ADPF.E33 PARAGRAPH = 3AC0H OFFSET = 0O3(^H 
SFC^ENT map 



START 


STOP 


LENGTH 


ALIGN 


NAME 


CLASS 


OOllPH 


r0113H 


0004H 


A 


(ABSOLUTE) 




04390H 


043F4H 


0025H 


W 


INITMOD CODE 


CODE 


0AC00H 


0B4A5H 


08A7H 


W 


LIMODULE CODE 


CODE 


0R4AeH 


0COD9K 


0C32H 


W 


L2M0DULE CODE 


CODE 


0C0DAP 


0C0DAH 


0000 H 


w 

CDF 


GLOBAL, MODULE_C 


CODE 


0CeDAH 


0C20CH 


0133H 


'{] 


LIMODULE DATA 


DATA 


0C20EH 


0C2F1H 


00E4H 


v; 


L2M0DULE DATA 


DATA 


0C2F2H 


0C30FH 


001EH 


A 


INITMOD DATA 


DATA 


0C310H 


eC310H 


0000H 


G 


??SEG 




0C310H 


0C3A6F 


0097H 


r 

VJ 


SCHEDULER 




0C450F 


0C4F4E 


0075H 


v; 


STACK 


STACK 


0C5ee?: 


0C579H 


007A.H 


A 

Ti 


(ABSOLUTE) 




0C530H 


0C5F9H 


007AH 


A 


(ABSOLUTE) 




0C600P 


3C679H 


007AH 


A - 


•'ABSOLUTS ) 




E7942H 


E7FFEK 


06BDH 


W 

A T A 

’A 


GLOBALMODULE_D 


DATA 


E8000H 


E6000E 


00 00H 


MEMORY 


MEMORY 
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iPPEMDIX I 



SCHEDULER E IMTEP.RUPT HANDLER SOURCE CODE 



The ASK86 code in file: SCHED.ASM is part of LEVEL I. 
No special attributes are required for the assembler. This 
module is linked into file: KCRE.LNK, and its memory map is 
included in the map for KCRE. SORE is the development 
system version of the file KOPE.OPS loaded by h'COFTEX . Cf^D 
under the CP/M-86 operating system. 
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/Tf rs *~} %«<• %*<» %■* s ^ %*i» %v %v %'^ %V ^*«* »v %'<• »v «>» »v %*» %'^ »*^ %o %•» <«*» *i>o ov %>, 

f/ V / / ''l' '»'* ^i' ^»* '*'■ '*' '»* *1'’ 'i* "P 'P 'P 'i' "i'* 'P "P 'i' 'P 'P ^ 't** "i'‘ 'p 'P 'P 'p 'p "P 'p "** '»* ^ 'p 'p 'p 



SCKEDULIH 



FILE 



ROWE 6 - 22 - 8 ^ 



THE FCLLCVINa ARE TEE EXTERNAL PLr^r6 PROCEDURES CALLED 
'' 3Y THIS MODULE. 



EXTPN 5AVECCNTEXT:EA.xR 
FXTRN GETS?: EAR 
EXTRN GETWCHK : FAR 
EXTPN RDYTHISVPrFAR 
EXTRN PRDS :PYTE 
EXTRM HDWINTFLAG :BYTE 
EXTPN GLOR alL0CK:3YTE 



SCHEDULER SEGMENT 



PUBLIC VPSCHEDULER 
PUBLIC INTVEC 

VPSCHEBULEH PROC FAR 

ASSUME CS: SCHEDULER 
ASSUME DS: NOTHING 
ASSUME SSr.NOTEING 
ASSUME ES: NOTHING 



; ENTRY POINT FOR A CALL TO SCHEDULER 



CLI 

PUSH DS 
MOV CX,0H 



:SWAP VIRTUAL PROCESSORS. THIS IS DONE BY SAVING THE 
; STACK BASS POLNTER AND THE RETURN TYPE FLAG ON THE 
; STACK, AND BY SAVING THE STACK SEGMENT AND STACK 
; POINTER IN T'^E VIRTUAL PROCESSOR MAP. 



INTJOIN: PUSH 3P 
PUSH CX 



;SAVE "current” STACK BASE 

;SAVE ’current’ I ret ixd flag 



MOV AX,SP 

PUSH AX ;seT UP SAVEACONTEXT PARAMETERS 
PUSH SS ;SET U? SAVESCONTEXT PARAMETERS 
CALL SAVECCNTEXT 



call GETWO^K 

PUSH AX 
CALL GETS? 
POP SS 
MOV SP.AX 



;GET new STACK SEGMENT 
; TEMPORARY SAVE OF STACK SEGMENT 

;get new stack pointer 

; INSTALL NEW STACK SEGMENT 
; INSTALL NEW ST^CK POINTER 



;SWA? VIRTUAL PROCESSOR CONTEXT COMPLETE AT THIS POINT 
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.'NOW OPEni'TINa IM NEWLY SELECTED PEOCESS STACK 



POP CX ;OET IRET_IND ELAC 

POP BP ; INSTALL NEW STACK BASE 

; CHECK ECR RETURN TYPE, NORMAL OR INTERRUPT 

CMP C}:,77H 
JZ INTRET 

NORM_RET: POP DS 

; UNLOCK GLOB AL$ LOCK 
MOV AX,SEG GLOBALLOCK 
MOV ES , AX 
MOV ES :GLOBALLOCK . ? 

STI 

RET 



VPSCEEDULEP. ENDP 



- •j* •j* V' V* V* » 

• ^S. ^1^ ,»!■» «>!<> il^ ,rj<. ^ ,F|.« 0 



• V** s’^ >• • 

^ r\[^ >1^ <»,» • ,■% 



• 5*f 
> * 



INTERRUPT HANDLER 



• 5|< 

f * 






5*% 5*^ 









INTERRUPT_HANDLER PRCC NEAR 

ASSUME CS ; SCHEDULER 
ASSUME DS-.NOTHING 
ASSUME SS:NOTHING 
ASSUME ES: NOTHING 



INTVEC: 


CLI 




PUSH 


ES ; SAVE NEEDED 


REGS TO TEST INTERRUPT E 


PUSH 


BX 




PUSH 


AX 




PUSH 


CX 




CALL 


HARDWARE I NT FLAG 




MOV 


AL,0 




XCHG 


AL.ES:HDWINTFLAG[BX] 


CMP 


AL,77K ; 


IS I NT FLAG ON ? 


JZ 


PUSH REST REGS ; 


IE 'YES' SAVE REST REGs 


POP 


CX ; 


IE 'NOT' RESUME PREVIOUS 


POP 


AX ; 


EXECUTION POINT 


POP 


BX 




POP 


ES 




STI 






I RET 
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PUSr:_REST_RIGS ; PUSH DX ; FLA'} WAS ON SC NZFD 
PUSH DS ; RE-SICHZEULK 

PUSH SI 
PUSH D I 

mcv’ax,seg GLOEALLOCK 
r^.OV FS , AX 

CK; ^''OV AL.119 ; LOCK GLOBAL LOCK 

LOCK XCKG FS :GLOEALLOCK ,AL 
TEST AL,AL 
JNZ CK 

CALL RPYTHISV? 



r^OV CX.77H 
JMP INTJOIN 



; JUMP TO SCHZrULE 



INTRET: POP DI 



PC? 


SI ; 


^^ETURN FOR 


POP 


DS ; 


PROCESS WHICH 


POP 


DX ; 


HAD PREVIOUSLY 


PC? 


n V " • 

u A 1 


BEEN INTERRUPTED 




; UNLOCK GLOBAL^LCCK 




MOV 


AX, SEC- GLOBALLOCK 




MOV 


ES , AX 




MOV 


ES :GL0BALL0CK,e 




POP 


AX 




POP 


BX 




POP 


ES 




STI 
I RET 







INTERRUPT HANDLER ENDP 



• «v «*<> %<> »*> « 

* .rp >1^ >Jp ?!«• * 



*•» x'^ x^ » X*^ x'^ xJ^ x*» x'^ X*^ x'^ xl> x»4» X*^ x'^ x'^ x*^ xl^ x'« X*^ X*»» X*<» xV X*> xJ^ x'^ x'^ xV x'»f X^*' x*»r Xp<,» x'« x*^ x*^ xl^ x*^ x*<» V<» xl^ V'^ 

• |X ^|X ^|X ^|X ^jX ^x ^|X ^jX ^|X ^1 • »• X ^^X ^,X ^,X ^|X >JX ^|X «|X «-|' ^jX <>|X ^,X ^X <,X ^,X >JX »|X «T|X ^|X #|X ^X «|X »»,X <«|X <«|X <»,X ^|X ^,X X ^|X ^|X »», X »jX ^X <»jX ^|X «|X ^jX ^,X ^JX »jX ^jX ^|X <»(X ^^x 

- HARDWARE INTERRUPT FLAG - 



HARCWARE_INT_FLAG PROC NEAR 

ASSU'^E CSrSCRErULER 
ASSUME DS: NOTHING 
ASSUME SS; NOTHING 
ASSUME ES: NOTHING 
KDW FLAG: MOV AX»SEG PRDS 



MOV 

MOV 



-■o « 



AX 
BX , 0H 



lol 



f^OV CL ,ES tPHrS [3X] ;GET CPU ti 

^ov CH,0 ; retu:-:n in 3x 

rev Bx,cx 

MOV AX,SEG HDVIMTFLAG ;SJT UP HDV.'$INT 
MOV FS, AX ; SEGMENT 

RET ; RETURN IN ES :’EG 

RARDWARE_I NT_FLAG ENDP 

SCHEDULER ENDS 

END 
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i/y 



APPINDIX J 



£LQ?..vL BASF AND INITIAL PPQCFSS CODF 

Two files are presented here: GLOBAL. SRC and 

They are Loth separately compiled with the LARGE 
They are linked into the file: KOFE.LNE. 

represented in the memory map for XORS located at 
Appendix H. INITK will he overwritten by 
initialization process. 



INITK .SRC. 
attribute. 

They are 
the end of 
the users 
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^ jJ: 5|c jjc 5|: 5|r :’,j ijc :;: 5’,< j|i :|s ^.c :’,5 5 ;: ;;c ijc :|: :|c ;;c >;< :;c :\c :Jc 5|; i); ;'<i :Jc j): jj: :;t ;|: y,: y' 

/ ?!t 5 ;c 5 ;j 5 ;? 5|i 5 |i :;c >;c 5 ;c j;: 5 ;j >;c :;c i|r :|c i|: 5;c ?;: 5|' 5i' 'i' 'I' '1^ 'i' ^ 5{: :;t 5,t J|s j;r / 

/ >|: 0 0 Q ;;c ilc ?; c ij : :;c :;c j ); i ): :|r j;c ijc :',c 5 ;^ ;; c j ; c :;: j ’.'. -'Ic : 1 c 5 |t 5 !< ?:? ?! i 5 ^ 5 !^ 2 !^ / 

/- YllT.1 GLOBAL. S?:C 

VZRSICN: ROW?: 6-22-84 

PRCCELURIS 

DEFINED: MOKE 



REMARKS :TRIS MODULE CONTAINS DECLARATIONS FOR ALL THE 
GLOBAL DATA THAT RESIDES IN SHARED COMMON 
MEMORY. IT'S LOCATED THERE BY THE LOCATE COM- 
MAND AND BY SPECIFYING THAT THE 
GLOBAL$MCDULE_DATA SEGMENT BE LOCATED A? SOME 
ABSOLUTE ADDRESS. 

'•V 

y }? >;; V i'f >r ❖ ¥ ❖ 5r 5,- ❖ >;t S|J :{•- :;j ^ 5;j ^ s|: :? ?:< :<£ :{j s,": « s{j ;? s[J ^ ^ s,": s? s.s S: ij: >;? sj; / 



GLOBALSMODULE : DO; 



^ ;|c 5|: :|t ?;c ?|r sjc j;c 5 ;: 5 ;: s;c Jjc 5|c :;c :;c :;c >;c :;t 5]: 5|c >;t ?;r s’: s;t :;c ^ 5|t ^ 

* / 2 I' n' 5|^ 2 I' 2 I' 2 ;: >;? 5 ;^ 5 ;: :|c ;;c 5 i :;r :;: j;c ?;? :;' :;: 5',: :|i 5|c j): :;c ;'.i ;|c :|c jjc ?;c ;;; :;c ^ 

/- THE FOLLOWING THREE LITERAL DECLARATIONS ARE ^LSC “V 

/- GIVEN IN TEE LEVELl 8 LEVEL2 MODULES OF THE OPERATING -/ 
SYSTEM. A CHANGE HERE WOULD RAVE TO 3E REFLECTED IN »>=/ 
/- THOSE MODULES ALSO. -/ 



DECLARE 
M AX$CPU 
MAX$V?S$CPU 

MAXiCPU$$$SMAX$VPS$CPU 



LITERALLY 

LITERALLY 

LITERALLY 



'10', 
' 10 '. 
'100 '; 



DECLARE 

GL03AL$L0CK BYTE PUBLIC INITIAL(0); 

/- THIS SHOULD REFLECT THE MAX^CPU ABOVE ’’•V 
DECLARE 

NRAF.PS BYTE PUBLIC INITIAL(0), 

NR$VPS (MAX$C?U) BYTE PUBLIC 

INITIAL'0 ,0 ,0 ,0 ,0,0,0 ,0,3,0); 

DECLAFE HDWHNT$FLAG(MAX^CPU) BYTE PUBLIC; 



DECLARE EVENTS BYTE PUBLIC INITIA.L(l); 

DECLAPE EVC^TBLdee) STRUCTURE 
(.EVCiNAME BYTE, 

VALUE WORD, 

THREAD • BYTE) PUBLIC 

INITIAL(0FEH,0,255) ; 

/- EVC "EE” is reserved for THE 0? SYS -'/ 



134 



DrCL.fi HI C?U$INIT BYTE PUBLIC I N I TI .fi.L ( C ) ; 

DECLARF SEQUENCERS BYTE PUBLIC INITIALS); 

DECLfiRE SEC^T.fi.BLEdee) STHUCTUEE 

(SEO$NA'^E BYTE, 

SEO^VALUE 'a'ORD) PUBLIC? 

DFCLARE 7?I^( I^.A X$ CPUd $ <$M.A X$ VPS $ CPU ) STRUCTURE 



( VP$ID 


BYTE, 




VP$STATE 


BYTE, 




VP$PRIORITY 


BYTE , 




EVCiTEREAD 


BYTE , 




E VC $ AW $ VALUE 


WORD , 




SPARES 


A' CRD, 




SS$PIG 


WORD ) 


PUBLIC? 


END? /- MODULE -V 


i 

/ ^1% 


3^ jjc jJS 3jC 3^ 5 


y# y^ y^ y^ y^ mv y^ / 

•Hn ^1^ ^P ^4^ ^P / 
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/ V# V^ v^ %y %y %*4# «*i^ %V OL^ %0 %*^ %*^ «Jl^ -sX* %** s*# W / 

<1^ #1^ ^1^ ^p ^p ^p yp -'p ^p yp ^p ^p #p ^p ^p ^p ^p yp ^p ^|«h pp yp ^p yp ^p ^p yp ^p / 

/- IMITK MODULE RO'a'E 6-22-S4 -/ 

/;<x s;:/ 

/»:'' THE CODE SEGMSN'T OF THIS MODULE IS V;EAT RESERVES SPACE 
/- BY THE OS FO- THE USE? INITIAL PROCESS. THIS IS -V 

/- EXECUTAELF IN IT'S OWN RIGHT. THUS IF THE USER DOFS ’^'V 

/- NOT PROVIDE AN INITIAL PROCESS THIS ONE WILL EXECUTE, -/ 

/'^ BLOCK ITSFLF, AND IDLE TEE CPU. THE ADDRESS OF THE -/ 

/- INITIAL CODE SEGMENT IS PROVIDED TO LEVEL 1 IT IS -/ 

/^ REELECTED IN THE PLM LOCATE COMMAND. THE ADDRESSES -V 

/^ PROVIDED MUST ACr^iy . THIS PROCESS HAS THE HIGHEST -/ 

/^ PRIORITY AND WILL ALWAYS EE SCHEDULED FIRST BY THE 
/- SCHEDULER. 'V 

/s;i >;:/ 

/- CALLS ^’ADE TO: AWAIT -/ 

/ ^•» »*.» •J* %f*’ %*■» %’.> 'I*' »•* Oi* V<* ^*‘’ / 

<■!» »,% * ■» ‘•f^ *c* «<Y* #i|S «|^ >J% >1^ ?jS / 

INITSMOD: DO; 



M.XTRACE MXTRACE M.XTRACE MXTRACE -""V 

MXTP^CE MXTRACE MXTRACE '^''>'''-'^'f- MXTRACE ’’<‘^=^V 

/-‘ DECLARE 

/- ^^SG13(-) BYTE INITIAL(10, 'ENTERING INITIAL PROCESS 

13,10,'%'); 

/- CUT$LINE: PROCEDURE ( PTR ) EXTERNAL; 

/- DECLATE PTF POINTER; 

/- end; 

MXTRACE MXTRACE ----- MXTRACE MXTRACE 

MXT-^CF '>'^''-i^^'^' MVTPaCiJ' MXTRACE M^T'^AfE / 

AWAIT: PROCEDURE( NAME, VALUE ) EXTERNAL; 

DECLARE NAME BYTE, VALUE WORD; 

end; 

INITIAL^PROC: PROCEDURE PUBLIC; 

DECLARE I byte; 

/-' AFTER INITIALIZATION THIS PROCESS BLOCKS 
/- ITSELF TO ALLOW THE NEWLY CREATED PROCESSES -/ 

/’- TO BE SCHEDULED. -/ 

/- THIS AREA SHOULD EE WRITTEN OVER BY USER INIT «/ 

/- PROCEDURE MODULE. ^/ 

/--- MXTRACE MXTRACE ->^--- MXTRACE MXTRACE *--/ 

/--’'■^ MXTRACE ----^' MXTRACE ----- MXTRACE MXTRACE 

/- CALL CUT$LINE0MSG13 ) ; 

MXTRACE ----^‘ MXTRACE ----- MXTRACE =:=--=;^- MXTRACE =<=--/ 

/--- MXTRACE MXTRACE '■■'^=--- MXTRACE --**- M.XTRACE --"v' 

CALL AWAIT( 0EEH, 1); 

end; /’> INiTIAL$PROC 'V 
end; /- INIT$MOD 
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